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From the people 
who brought you... 
pBusinessopaH-r 


Five NEW programs 
designed for the 
businessperson. 


BUSINESSPƏH + 
FORIABLE OMUR ERRI CADP 
11035 HARRY HINES BLVD. #207, DALLAS. TEXAS 75220 
PROMIOING SOFTWARE FOR THE TRS:80 MOOR. 100 
1-214 - 351-0664 






Each on its own cassette 
with interesting manual. 


Fist with softwere for the Mode! fap 


You have made BUSINESSPAK+ an over- 


whelming success! Now, we are introducing 
five new programs for the Model 100. 

PCSG continues to be first in innovative 
programming for the businessperson using 
the TRS-80 Model 100 Computer. 

Look at these five new programs. 


DATA+ $59.95 


With DATA+ the Mode! 100 becomes virtually a 
true data base. You can input data rapidly from 
a 16 field screen that you make yourself like our 
PUT+. Here is the difference: 

REVIEW / Using function key 1 you can recall 
any record, by searching any field. 

EDIT / Change or update any record you select, 
instantly on the screen. 

LIST / Using function key 5 you can print add- 
ress labels, list records or selected fields of records 
in columns or other configurations. You can 
even pause, and reset left margins. 

MERGE / Function key 6 lets you merge. You 
can automatically print any fields of any records 
into forms or letters, wherever you designate. 
With all four of these functions you have full 
search and selection capability. 

With LIST and MERGE DATA+ remembers 
your favorite formats, quickly defaulting to them 
by simply pressing the ENTER key. The added 
feature BUILD lets you build and print a file of 
unrelated records that could not be selected 
either alphabetically or numerically. 

On cassette with excellent, easy to understand 
manual. 


TRS-80 Model 100 is a 
trademark of Tandy Corporation 
©1983 Portable Computer Support Group 


TYPE+ $59.95 


The Model 100 now becomes, with the addition 
of any printer, the finest, most feature rich, 
electronic typewriter available today. You can 
type directly to the paper. (Some printers have 
aone line buffer.) 
SCREEN BUFFER / To allow you to edit before 
printing, you can control the screen buffer from 
1 character to the last line. 
CENTER / Center on / center off controlled 
with function keys. 
MARGINS / Set margins with function keys. 
Audible end of carriage, automatic carriage 
return and function key Tab Set. 
DIRECT CONTROL / If your printer responds to 
backspace commands, you can backspace and 
overstrike. Paper advances with carriage return. 
With TYPE-, everything you print is stored 
simultaneously in a RAM file, formatted as you 
composed it. You can reprint instantly, or edit 
it in the file. On cassette with excellent, easy 
to understand manual. 


TUTOR+ $29.95 


Learn keyboard skills by playing a delightfully 
exciting game. While experiencing the thrills of 
a space invaders type game you become profic- 
ient at manipulating the keyboard, A game that 
forces you to learn touch typing, utilizing all 
the keys. On cassette with excellent, easy to 
understand manual, 


PCSG provides hotline software support 
for the Model 100. Give us a call at 
1-214-351-0564. 





SORT2+ 


You can sort a file in place with SORT2+. It 
consumes only 1k free memory, while sorting file 
in RAM you entered with PUT+ or DATA+. Our 
original SORT+ allows you to sort from cassette, 
but requires more memory while sorting. SORT2+ 
is for those times when memory or cassette sorting 
is a problem. SORT2+ also has upper case fold, 
and true numeric field sort. On cassette with 
excellent, easy to understand manual. 


$29.95 


TENKY+ $59.95 


With TENKY+ the numeric keypad on your Model 
100 emulates both a ten-key desk calculator, and a 
financial calculator. The right side of the screen 
represents the tape, which can also be directed to 

a file and/or a printer. Ten working registers are 
visible on the left of the screen, each one function- 
ing independently as a calculator with functions 
including exponentiation and logarithms. Registers 
are accessible from each other, including the tape 
which stores up to 120 values, each associated with 
a note of up to 26 characters. 

Financial functions available at the touch of a 
key include IRR, MIRR, and NPV on up to 120 
cash flows, plus any of its six annuity variables 
(n, PV, FV, PMT, i). Function key F2 gives a 
printed amortization schedule, and businessmen 
will love the breakeven analysis they can receive 
simply by pressing function key F1. 


Portable Computer Support Group is 
pleased to offer these program additions. 
We endeavor to continue as The Leaders in 
Software for the Model 100. 


RORIABLE GOMBUTER SUBORT ORCUP 


11035 Harry Hines Blvd. No. 207, Dallas, TX 75229 


MASTERCARD / VISA / COD 


From Computer Plus to YOU... 


PLUS after PLUS after PLUS 


Model 4 16K $849 
Model 4 64K 
2 Disk & RS232 $1699 


Color Computer Il 16K $185 
w/46K Ext. Basic $245 


Model 100 8K $679 
Model 100 24K $835 


DMP120 $395 DWP210 $629 


DMP200 $520 


X 
CoCo Drive 0 $329 
CoCo Drive 1 $235 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS PRINTERS Model IIl/4 Drive 2 289 

Color Computer Silver Reed EXP500 D.W. 425 Model lll/4 Drive 3 259 
64K ext. basic Silver Reed EXP550 D.W. 645 Primary Hard Disk M12 2689 

Model 4 Portable Daisy Wheel Il 1745 Primary Hard Disk MIII 1799 
64K 2 Drives DWP410 1159 ETC. 


Pocket Computer 2 
Pocket Computer 3 
Pocket Computer 4 
Model 12 64K 1 Drive 
Model 12 64K 2 Drive 
Model 16B 1Dr 256K 
Model 16B 2DR 256K 
MODEMS 

Hayes Smartmodem II 
Hayes Smartmodem 1200 
Novation Smartcat 1200 
Novation J-Cat 

R.S. AC-3 

R.S. Modem | 

R.S. Modem II 


DWP210 

CGP115 

CGP220 Ink Jet 
DMP100 

DMP420 

DMP500 

DMP2100 

Gemini 10X 
Delta-10 

Gemini 15X 
Prowriter 
Prowriter Il 
Okidata 

Epson 

DISK DRIVES 
Model IIl/4 Drive 0 
Model IIl/4 Drive 4 


CALL TOLL FREE 
1-800-343-8124 


629 
159 
545 
315 


CCR-81 Recorder 
Cassette Tapes (10 Pk) 
16K Ram Chips 

64K Ram Chips 

Model 4 64K Upgrade Kit 
M100 Bar Code Reader 
8K Printer Buffer 

Printer Stand 

Printer Cables 

Printer Ribbons 

Printer Paper 

Dust Covers 

Computer Books 


R.S. software 10% off list. 
Send for complete listing 
of brand name software. 


* LOWEST POSSIBLE PRICES 
BEST POSSIBLE WARRANTY 
KNOWLEDGEABLE SALES STAFF 
TIMELY DELIVERY 
SHOPPING CONVENIENCE 


P.O. Box 1094 
480 King Street 
Littleton, MA 01460 SINCE 1973 


IN MASSACHUSETTS CALL (617) 486-3193 





TRS-80 is a registered trademark of Tandy Corp. 
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A Novel Observation... 


Or, Well, 


Perhaps Not 


ell, it’s 1984. The year people 
have been pointing to ever 
since George Orwell wrote his 


famous book over three decades ago. 

By now, you are probably tired of 
reading references to “1984,” so I will 
try not to belabor the point too much. 
However, I think it is interesting that 
the future turned out to be something 
less than Orwellian, and yet was, indeed, 
involved a great deal with interesting 
technology which was, at least to my 
eyes, referred to in the book. 

The ability of Orwell’s Thought Police 
and the Anti-Sex League to track the 
activities and doings of the people in 
that mythical 1984 is, for all practical 
purposes, available in the real 1984. 
Fortunately, at least in this country, 
such has not become the use of the tech- 
nology that we have at our disposal 
today. 

There was some controversy when 
“1984” was first published. But, I won- 
der if the skeptics would not have been 
even more vocal had Orwell gone to the 
extremes of predicting a computer that 
people could hold in their laps and work 
while sitting in an office, in a car, on a 
plane, or ina hotel room far from home. 

Needless to say, that piece of equip- 
ment is here and, thank goodness, many 
of Orwell’s predictions — at least in the 
free world — have not come to pass. I 
think we owe that happy turn of events 
in many ways to people such as those at 


Tandy. While it is obvious that Tandy 
developed the piece of hardware itself, I 
think, in many ways, the corporation 
personifies the free enterprise system 
that has kept, at least this part of the 
world, on a fairly even keel for the past 
30 years. 

I recently returned from the COM- 
DEX winter meeting in Las Vegas and, 
as | am sure you are aware, there are a 
number of new entrants in the portable 
computer field. 

It is probably interesting to note that 
unofficial statistics state that 30 percent 
to 40 percent of the exhibitors in any big 
COMDEX show are not around for the 
next one and this, | believe, is an inter- 
esting indication of the “shakeout” that 
has been taking place all along in the 
computer field. 

While there was certainly a bunch of 
new portable computer entrants, it is 
comforting to know that the portable 
computer | am using will still be around 
— and still be supported — by the time 
COMDEX rolls around again. | think 
that says worlds about Tandy Corpora- 
tion and Radio Shack and that, even if 
you or one of your friends may be 
momentarily dazzled by some new gim- 
crack, just remember that one little bell 
or whistle certainly isn’t worth the risk 
you might have to take to get it. And, 
besides, | have confidence that Radio 
Shack will continue to be on the fore- 
front with technology in the months and 


ars ahead. 
years anea Lonnie Falk 
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LIGHT OPERA, ANYONE? 


Editor: 

Dialm8, Vance Socci’s article in the Novem- 
ber PCM. doesn't address a question which 
may be of interest to a number of your read- 
ers. The autodial feature of the Model 100 is 
great, but | can't use it in our office. We have 
a Dimension system, which requires the use 
of the “*” and “#” keys on the touchtone pad 
for many of its features. Our company’s ver- 
sion of the system, for accounting reasons, 
requires 20 digits. including two “#” symbols 
to place a long distance call. It would save an 
awesome amount of time if | could type 
some of these bedtime stories correctly just 
once, editing my frequent mistakes just 
once, and live happily ever afterward, sum- 
moning them as needed from ADRS.DO. 

If some of the musical wizards you have 
on tap can program light opera on this thing. 
somebody ought to be able to summon a 
couple of touch tones. Anybody? 


A. W. Goldman 
Newton, MA 


A STRAPPING SUCCESS 


Editor: 

| purchased an MSTRAP for my Model 
100 from the Donald Stephens Company. It 
took a while to get to me, but they wrote and 
said they had difficulties with their new 
manufacturer and to please be patient. It 
arrived complete with excellent instructions 
on installation and a block of wood to use as 
a backing for slits to be made with the 
enclosed single edge razor blade! 

It works beautifully. I go to the federal 
archives and county courthouses loaded 
down with research material, so it is nice to 
have the computer comfortably draped on 
my shoulder. 


Patricia Scott Garmon 
Escondido, CA 


KUDOS 


Editor: 


I wish to congratulate vou and your staff 


on the quality and content of PCM maga- 
zine. It is far and away the best of the maga- 
zines that have come out in support of the 
Model 100. Even the long-established com- 
puter magazines which have included a 
Model 100 section have done a miserable job 
when compared to PCM. 

| will have to differ with those readers 
which request changes in PCM. | want to see 
a variety of programs and articles; utilities, 
games, instructionals and business. In other 
words, exactly what you are now doing. 

l am sure, as more and more people find 
what a great machine the Model 100 is and 
buy them, that PCM will continue to grow. 
Keep up the excellent work. 


Nathaniel F. Ireland 
Marlow, NH 
PLEASE BE SEATED 
Editor: 

l recently purchased an 8K RAM module 
from BT Enterprises for my Model 100. 
Although lengthy installation instructions 
were included, I still had difficulty installing 
the module. Apparently, seating the module 
in its socket requires considerably more 
pressure than a novice at RAM installation 
would expect. In my first attempts at instal- 
lation and memory power on, program code 
that | reloaded became scrambled, ominous 
beeps occurred, and a mysterious 1027 code 
appeared. 

I should point out that BT's module is not 
identical to the original modules in my 24K 
Model 100. The module is double the height 
of the original equipment and has very little 
clearance to the keyboard assembly. The lat- 
ter fact led me to think that the module was 
pressing up against the keyboard assembly. 
After opening the case and reseating the 
module twice. I finally pushed the module 
home with a very firm rocking motion, It 
worked. | assume now that the scrambling of 
the program listings, the beeps and the 1027 
code (SN 1027 in an attempted program run) 
occurred because of improper seating of the 
module. 


David E. Werling 
Mansfield, MA 


PORTABLE COMPUTER DESK TOP STAND 





Improves Viewing and Typing Angle 


Briefcase Portable 


Mail Check or Money Order to: DISKUS PRODUCTS 6003 Bandini Blvd., Los Angeles, CA 90040. VISA or M/C call 
(213) 726-3088 The POCO STAND $17.95 plus $2.00 each unit Shipping & Handling — CA residents add 6.5% sales tax. 
Patent Pending. © 1983 DISKUS PRODUCTS For RUSH Delivery add $2.00 extra — U.P.S. Blue Label 


6 PCM 


January 1984 


Ask your dealer for the Porta™ series 
from Skyline—to help you work faster and better! 


PortaCalc'" — Model 100 “electronic spreadsheet" with 14 column by 26 row workspace! 
Full use of the built-in function keys to save, load, screen print, report print, or to look 
behind the data at the formulas in use. HAY 


Full arithmetic operators including exponentiation, absolute value, integer, summation, 
and averaging. Calculations are done to 14 digits of precision and displayed up to 9 
digits. User selectable decimal place from none through seven—not just one, two, or 
floating! Formula replication is included to allow fast creation of worksheets. 


Worksheets may be saved, loaded, or merged using the computer’s memory or 
cassette. Often used templates can be saved in memory for instant recall. 


Two powerful utility programs are included with PortaCalc at no extra 
charge! PortaDex™ is a data exchange program that allows reformatting 
PortaCalc files into the DIF format used by VisiCalc. PortaPrint'" is an 
enhancement to the Model 100’s text editor, adding the ability to adjust 
left, right, and top margins, and page length. Page numbering, headers, 
centered lines, flush right justification, new page control, and more. 


Comes with extensive documentation in padded 3-ring binder. Includes 
tutorial, detailed reference section, and executive level sample templates. 
Fully illustrated with screen prints, examples, and hints. 


PortaStat'” — Correlation, regression analysis, and descriptive statistics 
package, designed to be a working tool for today’s businessman. 

Data can be input from cassette, memory, or keyboard. Interactive with 
PortaCalc data files! Thoroughly documented, includes tutorial. 


PortaFin " —Present value, net present value, future value, annuities, 
interest factors, loan constants, internal rate of return and more! This user- 
friendly package prompts you for the needed input data, then gives you 
the answer to your loan or investment problem! Interactive with PortaCalc 
files, allowing you to “read” cash flow data from memory. Keyboard or 
cassette input also available. 


PortaMax'" — The powerful ‘simplex’ method of linear programming. Find 
the optimum ‘mix’ for a given set of constraints. Interacts with PortaCalc 
files to avoid time-wasting repetitive data entry. Tutorial, examples, and 
bibliography included. 

PortaFolio'" — Stock and bond valuation, betas, Macaulay's duration, yield 
to maturity, bond swap calculations, and much more. All in an easy to use 
program, interactive with PortaCalc data files. Supplied with comprehensive 
instructions and reference manual. 


PortaCalc 


All Porta series programs are supplied on cassette and require 24K RAM. 
Pricing — PortaCalc is $69.95, all others are $44.95 each. 

If ordering direct, add $2.00 shipping and handling per order. 

Dealer inquires invited. D 1] Ems 
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4510 W. Irving Park Rd. * Chicago, IL 60641 * (312) 286-0762 











Taxes, Do? 
Taxes, Bah! 


By Robert Frowenfeld 
PCM Contributing Editor 








ave you ever felt that the harder 
He: work, the behinder you 

get? You do your best to get 
your small business organized, main- 
tain records, keep receipts, write your- 
self notes about how many times you 
had to pay $1.50 for parking every time 
you went downtown to see your accoun- 
tant, and what happens? At the end of 
the year you have a shoe box full of 
memos, canceled checks and scribbled- 
upon napkins you're trying to call re- 
ceipts, and you haven't any way of get- 
ting things organized. On The Road this 
month will not only help you straighten 
out this year’s mess, it will also give you 
a jump on 1984. This month's program 
is called TAXES. BA and its purpose is 
to help you maintain and organize the 
money you've spent (and taken in) dur- 
ing the course of the year for your busi- 
ness. If you have to file a Schedule “C” 
with your tax return to appease Uncle 
Sam, then this program will surely help. 
If you don't file Schedule “C,” don't 
turn the page and figure this program 
isn't for you. As you'll see, the tax cate- 
gories can be renamed to whatever you 
like, and the listings and displays will 
still be able to maintain a good-sized 
data base. 


(Robert Frowenfeld owns his own 
computer programming firm in Louis- 
ville, Ky., and has completed his gradu- 
ate course work in computer science at 
the University of Louisville.) 


This program uses two data files. The 
first file is used for input only and is 
named “TAXES.DO.” As can be seen 


from figure #1, this is just a list of 


account numbers and descriptions for 
Schedule “C” for the 1982 tax return. 
One of the nice things about this file is 
that you can edit it. By using the TEXT 
program that comes with the Model 
100, you simply type in the name of the 
file, TAXES, and it will come up on the 
display. If you want to add, delete, or 
modify the categories, just edit the file 
as you would any text file. The only 
restriction is that for each account, 
there must be an account number fol- 
lowed by a space and an account de- 
scription. 

The second file used by TAXES. BA 
isa transaction file named 7A X DAT. DO. 
This file keeps a running list of all your 
purchases and sales during the course of 
the year. It, too, can be edited with 
TEXT if, for some reason, you make a 
mistake and need to modify an entry. 

Figure #2 shows the main menu and 
the three choices for input/ output. Let’s 
take a quick run through each of these 
so you can start keeping track of all 
those little slips of paper. By pressing 
“1,” the “Enter Transaction” display 
comes up and prompts you for a date; 
this must be typed inas mm/dd/yy. The 
next query is for a category number. 
This is the number (and letter, if appli- 
cable) of the income (or expense) cate- 
gory. Inthe example shown in figure #3, 
the category chosen was number 12 for 
Depreciation. The next prompt asks for 
a more detailed description of the tran- 
saction. This can be any alphanumeric 


string you wish to enter to more accu- 
rately describe the sale (or purchase). 
The last prompt asks for the dollar 
amount of the transaction. Once en- 
tered, the program asks if this entry is 
correct. If not, simply press N and the 
transaction will not be recorded. If you 
like what you see on the display, press Y 
and the transaction is appended to the 
data file TAXDAT.DO. When you're 
through entering all your transactions, 
press the F7 function key when promp- 
ted for the date and you will be returned 
to the main menu. 

Function "2" from the main menu 
lists a summary of transactions to the 
display and (if requested) to an attached 
printer. Upon pressing "2," you are 
requested to enter an account number. 
If you are interested in seeing all the 
transactions in a particular account, 
just enter the account number (6, 12, 
38a, etc.). However, when tax time 
comes around and you want to see all 
transactions sorted by account number, 
press the asterisk (“*”) and press EN- 
TER. In either case, you are then re- 
quested as to whether or not you would 
like to see a printed copy of the report. 

If you do not request printed output, 
the display will pause every few entries 
to let you look things over and request 
that you press a key to continue. If you 
do send the results to an attached print- 
er, the program will not pause, instead it 
will just go ahead and print all the 
information without stopping. A nice 
feature of this program is that if you do 
request all accounts to be listed and/or 
printed by using the “*” option, only 
those accounts that actually had some 
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activity will be listed. (See figure #4.) Additionally, whether 
you list one account or all accounts, you will always be given 
a summary line indicating the total number of entries and 
the total dollar amount of all the transactions. (Talk about 
making tax time fun!) 

The last function of TAXES. BA lists out all the account 
numbers and descriptions to the display and (if requested) to 
an attached printer. 

Well, there you have it, every small businessman’s answer 
to an electronic file box for keeping track of sales and 
purchases. As an added touch of convenience, you might 
want to add some account categories to additionally main- 
tain your Schedule “A” deductions. Give TAXES.BA a 
whirl and see how surprised your accountant is when you 
bring him a neatly ordered list of your expenses instead of 
that shoe box you unloaded on him last year! 


Figure #1 


1a Gross receipts or sales 

ib Returns and Allowances 

2 Cost of goods sold 

4a Windfall Profit Tax Credit 
4b Other Income 

6 Advertising 

7 Bad Debts 

8 Bank Service Charges 

9 Car and Truck Expenses 

18 Commissions 

11 Depletion 

12 Depreciation 

13 Dues and Publications 

14 Employee benefit programs 
15 Freight 

16 Insurance 

17 Interest 

18 Laundry and cleaning 

19 Legal & Professional Services 
20 Office Supplies and Postage 
21 Pension and profit-sharing plans 
22 Rent on business property 
23 Repairs 

24 Supplies 

29 Taxes 

26 Travel and entertainment 

27 Utilities and telephone 

28a Wages 

28b Jobs credit 

29 Windfall Profit Tax Withheld 
30 Other expenses 


Figure #2 
Schedule 'C' Accounts Manager 
1 Enter Transaction 
2 Summarize Transactions 
3 List Account Names 
4 End Program 


Select: 


Figure #3 


Enter Transaction 


Date 1412/31/83 Category 4: 12 
Cat. Desc. :Depreciation 
Description:Automobile (‘79 Pontiac) 
$ Amount $2132.78 


Figure #4 


Account: 6 - Advertising 


Date Description Amount 
1/12/83 January Sale 525.45 
8/30/83 Labor Day Sale 750.00 
Total for 2 entries = $ 1,275.45 

Account: 12 - Depreciation 

Date Description Amount 
3/1/83 Furniture 344,44 
4/1/83 Typewriter 350.00 
5/6/83 Computer 9,495.73 
8/2/83 Automoblie (‘69 Chevy 2,000.00 


12/31/83 Automobile ('79 Ponti 2,132.78 


Total for 5 entries = $10,322.95 


Account: 13 - Dues and Publications 


Date Description Amount 
&/1/83 PCN Magazine ———— 28. 08 
Total for 1 entries = $ 28.00 
The listing: 

1 MAXFILES=2:CLEAR 10@0:DEFINT I-N:DEFST 
R A,R,U 


2 BL$zSTRIN6$(38," ") 

S ESS$ZCHR$(27)1:R*ES$*"p":UzES$*"q":60TO 
35 

5 LINEINPUT IN$:XsVAL(INS):IF INS<>"" TH 
EN YsASC(INS):RETURN ELSE RETURN 

35 DIM A(1800),X(100) 

40 FI$-"TAXDAT.DO" 

50 DATA"Enter Transaction","Summarize Tr 
ansactions","List Account Names","End Pr 
ogram" 

Si FOR I=1 TO 4:READ MOS(ID:NEXT I 

60 KEY 1," "*CHR$(13) 

70 Gis="\ N x \# 
HHH, HH 
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71 Hi$s" Date 

Amount" 

72 H2$="Acct# 

73 62$="\ i X 
yu 

74 H3$z"-----  --------.--------.-.------ 


Description 


Description 


108 CLS:PRINT@5,"Schedule 'C' 
Manager” 

105 CLOSE 

118 FOR I=! TO A:PRINTG4AS*I*4U,R; I;U" "M 
0$(I) j NEXT I 

115 PRINT@289,"Select: "; 

120 A=INPUT$(1):FX=VAL(A) SIF FXC1 OR FX? 
4 THEN 128 

138 ON FX GOTO 1000,2000,3000,4000 

200 CLS: JZLEN(MO$ (FX) ) PRINTTAB(20-J/2)1 
MO$ (FX) RETURN 

300 OPEN FI$ FOR INPUT AS 1:RETURN 

318 OPEN "TAXES.DO" FOR INPUT AS 2:RETUR 
N 

400 PRINT@290,"Press "R" F1 "U" to Exit" 
; RETURN 

500 ‘pause 

510 PRINT@280,”" "SR;" Press any ke 
y to continue: ";U;" "“s:A=INPUTS$(1) 9RETUR 
N 


Accounts 







24 









Chattanooga Choo Choo Software 


T 


Your One Stop Station 
For Computer Programs 


Track 29 






S! 

= oo Hn EHE 

BUSINESS 
Skyline Software 

PortaCalc - Electronic spreadsheet 
with 14 column by 26 row workspace! 

includes Porta Print and Porta Dex. 

(24K) cassette $6095 $66.45 


*PortaStat - statistical package 
*PortaMax - linear programming 
$4495 $39.95 ea. 
*PortaFin - /oan & investment pkg. 
(24K) $4495 $42.70 ea. 
*PortaFolio - being released soon at 
34497 $42.70 ea. 
*interactive with PortaCalc data files 


Portable Computer Support Group 
Business Pak- includes: 
Write+, Graph+, Expns+, Telex+, 
Put+, Sort+ & a 120-page manual 
6 cassettes (BK) .$140-35 $85.45 


AAAH 


LIT 
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Chattanooga Sys. Assoc. 


Scribe-Word Processor 
( PA K) de ee oe Reversi Alexis Adventure 


Personal checks welcome. 
Please add $2.00 for shipping. 
Tennessee residents add 6.25% sales 


ax. 
C.O.D. orders add $2.00. 


Send for free 
complete catalog and descriptions! 


(615) 875-8656 @ P.O. Box 15892 6 Chattanooga, TN 37415 


CERES eee 


688 ‘heading 

618 CLS:PRINTH2$:PRINTHSS$:IF (PR) THEN L 
PRINT H2$:LPRINT H3$ 

620 RETURN 

650 CLS:PRINT H1$:PRINT H4$:IF (PR) THEN 
LPRINT TAB(S) "Account: ";AC$;" - "jID$1 

LPRINT:LPRINT H1$:LPRINT H4$ 

650 RETURN 

1000 ‘enter transaction 

1005 CLOSE: OPEN FI$ FOR APPEND AS 1:G0SU 

B 310 

1810 GOSUB 200 

1020 PRINT6880,"Date 

tegory #:"3 

1030 PRINT8120,"Cat. Desc. :"; 

1040 PRINT@1460,"Description:"; 

1050 PRINT@200,"$ Amount i*j 

1060 GOSUB 400 

1100 PRINT@92,"";:GOSUB 6:IF Y=32 THEN | 

Q8 ELSE IF LEN(IN$)<6 THEN 1100 ELSE DT$ 

=IN$:PRINT@280,BL$; 

1110 PRINT@114,""s:GOSUB 6:IF IN$="" THE 

N 1110 ELSE Y=ASC(INS):IF Y=32 THEN 1118 

1112 GOSUB 5000:IF ER=1 THEN 1110 

1115 PRINT@132,1D$; 

1130 PRINT@172,""3:GOSUB 6:IF IN$z"" THE 

N 1130 ELSE DES=IN$ 

1140 PRINT@212,""3:GOSUB 4:IF IN$z"" THE 

N 1140 ELSE AM!=Xx 


1"; TAB(22) "Ca 





EVERYDAY 
SPECIALS 


















RECREATION 
Silverware 
Games 1 - 4games on cassette 
Blockade Frankenstein Adventure 


(24K) $2495 $23.70 
Games 2 - 4games on cassette 
Maximum, Checkers 
Amazing Chase 
Williamsburg Adventure 


(24K) $2995 $23.70 


Prickly-Pear Software 10% OFF 
Viking - (24K) simulation game 
cassette $4093 $17.95 
Football 
Armchair Quarterback Strategy 
(16K) cassette S435 $17.95 


EH 


1160 PRINTe288,"Entry Correct (Y/N): "j1 
INS=INPUT$(1)31F IN$z"N" OR IN$="n" THEN 
10080 ELSE IF IN$<>"Y" AND IN$C»"y" THEN 
1160 ELSE PRINT INS; 

1170 PRINTSI,CHRS(SA)DTSCHRS$(S34)","CHR$( 
34) AC$CHR$ (34) " ,"CHR$(SA4) DESCHR$(S4) ","AÀ 

M! 

1188 GOTO 1000 

2000 ‘summary 

2010 CLOSE: GOSUB200: GOSUB30@: GOSUB400:G0 
SUB31@:AA="" 

2015 PRINT@206,"(Enter '*' for all accou 
nts)" 

2020 PRINT@130,"Enter Account $: "3:GOSU 
B &:1F IN$z"" THEN 2020 ELSE IF Y=32 THE 
N 100 

2030 PRINT@28@,BL$; 

2035 IF IN$z"*" THEN AAz"*":G0TO0 2045 
2040 GOSUB 5088:IF ER=1 THEN 20800:ELSE A 
12AC:A27ID$ 

2045 PRINT8200,BL$;:PRINT8129,"Send to p 
rinter (Y/N): "3 

2047 A=INPUT$(1):IF A=" " THEN 100 ELSE 
IF A="N"OR A="n" THEN PR=@ ELSE IF As"Y" 
OR A="y" THEN PRz-1 ELSE 2045 

2049 IF Af="*" THEN 6000 

2050 GOSUB 4650:LC=8:TS=0: TT#=2 

2055 PRINT@28@,"Acct.: "A1" - "A2; :PRINT 

@80, ” "3 

2060 IF EOF(1) THEN 2092 

2070 INPUT#1,DT$,DU$,DE$,AM!: IF DU$<>AC$ 
THEN 20650 

2080 PRINT USING Gi$;DT$;LEFTS(DE$,21) 5A 
M':TTZTT*AM!:TSzTS*1: IF (PR) THEN LPRINT 
USING 61$;DT$; LEFT$ (DE$,21); AM! 

2085 LC=LC+1:IF LC=5 AND (NOT PR) THEN 6 

OSUB 5@@:LC=@:GOSUB 650 

2090 GOTO 2060 

2092 CLOSE 1:IF AA="*" AND TS=@ THEN 209 
8 

2095 IF (NOT PR) THEN GOSUB 5@0:CLS:PRIN 
T@5,"Acct. #"sAL$3" - ";A2$:PRINT8125,"T 
otal for";TS;"entries = "SUSING"S##, 44 9. 
##";TT#:GOSUB 580 

2097 IF (PR) THEN LPRINT:LPRINT"Total fo 
r "sTS;"entries = "USING" SHH, HHH. 
##"S TTH 

2098 IF AA="*" THEN IF (PR) THEN FOR I*1 
TOS:LPRINT:NEXT I:GOTO 6000 ELSE 6000 
2099 GOTO 2000 

3000 ‘list accounts 

3010 GOSUB 20@:CLOSE:GOSUB 310:608UB 400 
3020 PRINT@129,"Send to printer (Y/N): " 


, 

3030 ASINPUTS$(1):1F Az" " THEN 100 ELSE 
IF A="N"GR A="n" THEN PR=@ ELSE IF As"Y" 
OR A="y" THEN PRs-1 ELSE 3030 

3035 PRINT Aj::PRINT8$280,BL$; 

3040 GOSUB 608:LC=0 

3050 IF EOF(2) THEN 3895 


3060 INPUTS2,A:K2INSTR(A," "):PRINT USIN 
G 82$;" "*LEFT$(A,K) ;MIDS$(A,K*1) 
3065 LCzLC*1:IF LC=5 AND (NOT PR) THEN 6 
OSUB 500: IF A=" " THEN 100 ELSE LC=0:60 
SUB 620 
3070 IF (PR) THEN LPRINT USING 82$," "+L 
EFT$(A,K) sMIDS(A,K+1) 
3075 GOTO 3050 
3095 GOSUB 50@:CLOSE:GOTO 100 
4080 ‘end 
4010 CLS: MENU 
50808 ‘search for category 
5010 ER=0:IF EOF(2) THEN ER#*1: RETURN 
5020 INPUT #2,I1D$:K=INSTR(ID$,” ") 
5030 ACS=LEFT$(1D$,K~1) 
5040 IF AC$=IN$ THEN ACZSVAL(INS):ID$2MI 
D$(ID$,K*1) x RETURN ELSE 5010 
6000 ' for all accounts 
60180 IF EOF(2) THEN 2000 
6020 INPUT #2,AsK=INSTR(A,” "):A1sLEFT$( 
A,K-1)sA2=MID$(A,K+1) 
5025 GOSUB7@00: IF TS=@ THEN 6018 
6030 CLOSE 1:GOSUB 300:AC$=A1$: ID$=A2:G0 
TO 2050 
7000 ‘check if any for this category 
7010 TS=@:CLOSE 1:GOSUB 300 
7015 IF EOF(1) THEN RETURN 
7020 INPUTA&1,DT$,A$:1F A201 THEN TS=1:RE 
TURN ELSE 7015 

PCM] 


s The Handicapper ^9 


Use the power and portability of your Model 100 to 
improve your performance at the track—and we mean 
at the track! The Handicapper comes with separate 
programs for thoroughbred and harness tracks that 
apply sound handicapping techniques to produce 
rankings for the horses in each race. Use information 
readily available in the Racing Form or harness track 
program. Factors include speed, distance, track condi- 
tion, post position, past performance, jockey or driv- 
er's record and other attributes. Use it at home the 
night before or tote it with you to the track and hand- 
icap between races! Handicap an entire race in a few 
minutes and a whole card in less than an hour! List 
rankings to screen or printer. 24K version even builds a 
RAM file for the entire card! Includes harness and thor- 
oughbred programs, complete documentation and 
betting guide. State memory requirement when 
ordering. Only $49.95. 


Federal Hill Software 
825 William St. eR 
Baltimore, Md. 21230 
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Basic Bytes 








Programming To 
Save Memory 


By Richard A. White 
PCM Contributing Editor 





ince the M100 keeps so much in 
G eno. like a number of pro- 

grams and various files you have 
generated, it may be well to review just 
what memory is so we know what it is 
we want to save. 

A computer starts with memory. Mem- 
ory consists of electronic circuits that 
can either be off or on. Each circuit is a 
“bit.” If the circuit is on, the bit equals 
one or else it is a zero. You will also see 
the ON state represented as high (vol- 
tage) and OFF as low (voltage). In any 
case only two state can exist. This is 
what binary means, two states. 

These individual circuits, or bits, are 
grouped in blocks of eight which make 
up a byte. A byte is always eight bits. 
Bits in a byte can be set to define any 
number between 0 and 255 in decimal 
notation. For example, the byte 
“00000000” means zero. The byte 
“IL111LI1” means 255. MIO0's memory 
is divided into byte sized memory loca- 
tions. 

There are two types of memory. Read 
Only Memory, ROM, is made so the 
numbers are permanently fixed in the 
chip. You can turn the computer off and 
back on and the information in the 
ROM is always there for the micropro- 
cessor to use. Random Access Memory, 





Dick White has been programming in 
BASIC for over three years, and has a 
number of programs on the market for 
the Color Computer. He is also a col- 
umnist for the Rainbow, PCM's sister 
publication, and is a member of CIN- 
TUG, the Cincinnati TRS-80 Users’ 
Group 
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RAM, is changeable. The microproces- 
sor can put numbers into RAM loca- 
tions as well as reading the numbers that 
are there. Further, RAM numbers exist 
only while the power is on. Turn the 
power off and all voltages in the RAM 
go to zero, destroying any stored data. 

But the M100 is different from most 
personal computers when it comes to 
turning the machine off. There are two 
degrees of off. When you turn an M100 
off, the memory stays alive, powered by 
a rechargeable battery and by the alka- 
line or NiCad batteries. When you re- 
move your batteries for recharge or 
replacement it’s the little rechargeable 
built-in battery that keeps your RAM 
memory alive and well. To turn the 
RAM off you must use the Memory 
Power switch on the bottom of the 
machine. 

And while we are on the topic, you 
can use rechargeable NiCad batteries 
even if their voltage is only 1.25V. A 
fully charged set will last about two 
hours when using the modem and six 
hours during normal, non-modem oper- 
ation. When they die, they die fast, like 
within a few seconds of when the low 
battery light comes on. 

Back to memories and what they are 
for. When we talk about saving memory, 
we are talking about saving RAM mem- 
ory space. There is also 32K of ROM in 
the MIOO that we cannot touch and 
would not want to since that’s where 
BASIC, TEXT, TELCOM, ADDRSS 
and SCHEDL programs are. 

The microprocessor does all its work 
by reading instruction and data numbers 
from memory and performing the action 
which the instruction numbers call for. 
Data numbers can mean many things, 


depending on the program. These can 
include data addresses in memory, cal- 
culated numbers or numeric representa- 
tions of characters. 

A BASIC program is a special kind of 
data file that resides in RAM. When 
youruna program, a machine language 
program in ROM called an interpreter 
translates the BASIC program into a ser- 
ies of instructions that the microproces- 
sor can understand. The interpreter 
program is very picky about things like 
syntax, or the way commands and state- 
ments are written, but could care less 
about program logic or line numbering 
and this is one place we can save bytes of 
RAM for other uses. 

Line numbers are used by BASIC to 
define the start of a block of code. They 
are particularly important in defining 
the targets for GOTOs and GOSUBs 
and line calls after THEN. A line number 
may be thought of as an address. Think 
of two houses, one where a single person 
lives and one where there is a big family 
complete with grandparents. The mail- 
man delivers mail toa single mailbox in 
each case. It generally does not matter 
how many live in the house. In BASIC 
this is true as well in that one or many 
statements may be on a line. 

Now, should the grandparents havea 
separate entry and part of the big house, 
and wish to get their mail directly, they 
would put up their own mailbox and 
have a separate address. We would put 
them under a different line number so 
their mail can GOTO them directly. So 
subroutines and code blocks that are 
targets of GOTOs elsewhere in the pro- 
gram start with separate line numbers. 

Just as many people can live in a 
house, many statements can be under a 


single line number. Each is separated by 
a colon (:). The limit is the number of 
characters the keyboard buffer will ac- 
cept. I count 254 characters. 

ABASIC line of 254 characters as seen 
when entered from the keyboard will 
not actually take up that many memory 
spaces. After you enter a line, it goes 
through a tokenizing process that con- 
verts all keywords like PRINT, POKE, 
INPUT etc., to one or two numbers 
unique to each. In addition to the actual 
BASIC code, five more bytes are used for 
the line number, the address of the next 
line in memory and the 0 at the end of 
the line. So a memory saving strategy 
emerges. Stuff as much BASIC in one line 
as possible and save five bytes for each 
separate line not used. 


"Note inall of this that 
the guiding principle 
is whatever makes the 
most of your machine 
as well as making it 
easy for you as a pro- 
grammer." 





There are a few rules to follow. One 
rule is that a line called by a GOTO ora 
GOSUB must have its own line number. 
Another is that a following line cannot 
be added to the line above when the first 
line ends with an IF... THEN state- 
ment. IF... THEN is a control struc- 
ture that is managing program action. 
One action can be to fall to the line 
below if the test made after IF is untrue. 
Obviously that could not happen if the 
statements in the line below were instead 
after the THEN. So think out what is 
happening after IF . . . THEN state- 
ments. And while we are on IF... 
THEN ... ELSE, no colon is used after 
IF or on either side of THEN or ELSE. 

Ina previous column, we talked about 
putting all the action code that follows a 
THEN or ELSE in the same line. In 
some instances quite a bit of code is 
needed after THEN and ELSE to get all 
the work done that is needed. Resist the 
temptation to keep the line short by put- 
ting the statements in lines below which 
you then have to be jumping over. | 
think it is easier to trouble shoot pro- 
gram logic if all code is in one line and 
we need to save those bytes. 

I know what you are thinking. If a 
line has fifteen statements in it, how do | 
find which one caused the SYNTAX 
ERROR or whatever bombed in that 


line? One way is to edit a number of 
STOP statements into the line. Each 
time BASIC meets a STOP it stops the 
program and says BREAK IN XYZ. 
When you type CONT, BASIC will pick 
up with the code after the STOP. If you 
put three STOPs in a line and get two 
BREAKs and then the SN ERROR, 
you have narrowed your problem to 
only that code between the second and 
third STOP. 

While we are talking about line num- 
bers, what is sacred about spacing lines 
10 apart? This leaves room for adding in 
new code later if needed. I like small line 
numbers. It takes one byte less to GOSUB 
100 than to GOSUB 1000. I like GOSUB 
10 even better. 

Unfortunately, M100 BASIC does not 
contain a RENUM command that will 
completely renumber a BASIC program. 
Why do this? As noted above, GOTO 
and GOSUB line numbers are stored as 
a series of digits in a program. If these 
numbers are small, memory is saved. 
One thing to do is to always try to use 
small line numbers. A second thing to 
dois to put your subroutines at low line 
numbers. Very- frequently called sub- 
routines can be put below 10. Most oth- 
ers will fit between 10 and 99. 

If you really want to squeeze all you 
can, send your BASIC program in ASCII 
form to another computer that does 
support RENUM, do the renumbering 
there and bring it back into the MIOO. A 
program starting at zero and numbered 
in steps of one will use least memory. 

First save your "source" version to 
tape orinthe other computer so you can 
use it as the version to change later. 
There is method here as well. When 
programming on the Color Computer, | 
put certain things at certain places and 
always know where to go to edit them. 
For example, disk and tape 1/O are 
always in the 900 block. When the pro- 
gram is renumbered, all the order that 
once was is lost and it is like a new 
program to me. So l edit the source and 
renumber to get a compact working ver- 
sion only when memory is a constraint. 

Note in all of this that the guiding 
principle is whatever makes the most of 
your machine as well as making it easy 
for you as a programmer. Your M100 
could care less how far the lines are 
spaced or what's in them as long as syn- 
tax is right. Also, the M100 is not con- 
cerned about program logic, but just 
does what it's told. If you find it easier to 
number lines at intervals of 10 and put 
only one or two statements per line, 
then that may be the right way for you. 
At least now you have some idea of how 
much that costs you. PCM) 


2 games packages for your 
relaxation and enjoyment: 


MODEL 100 Games #1 


Blockade - Your ‘snake’ grows longer 
as you hit the randomly appearing 
targets on the screen! A one or two 
player real-time game. 


Reversi - Outflank your opponent! Play 
against the computer or another human. 


Frankenstein Adventure - Find all 
of the necessary equipment to awaken 
the monster 


Alexis Adventure - Sail the seas and 
traverse the islands to recapture your 
kingdom 


MODEL 100 Games #2 


Maximum - Outscore your opponent 
or the computer by taking the higher 
point squares and leaving a low point 
choice for them. 


Checkers - The classic game! Play 
against the computer or against a 
human or have the computer play itself! 


Amazing Chase - Outrun two pur- 
suers in a maze in this real-time game 
with optional sound 


Williamsburg Adventure - Steal, 
eat, shoot, and laugh to find the golden 
horseshoe! 


Choose either of the games packages for 
only $24.95] 


- a lot of software for a little silver 


See your dealer or 
Write or call us direct at PO. Box 21101, 
Santa Barbara CA 93121 (805] 966-1449 
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Dump 


It On 


CompuServe 


(And Set Yourself Free) 


or a lawyer in solo practice like 
b an hour of productivity is an 

hour less worry about backlog, 
and an hour of getting paid. Travel 
creates productivity problems, because 
so much time ordinarily must be wasted. 
Recently | had two trips, one for two 
days and one for 10, and mountains of 
work that had to be out to clients or 
filed in court as soonas I returned, in all 
likelihood too tired to do it. Here is how 
the Model 100 used together with Compu- 
Serve helped me solve the problem. 

| brought the files I needed along, 
wrote on the Model 100 in airplanes, in 
airport waiting rooms and at the gates, 
and anywhere else | could sit down and 
get the thing on my lap. Occasionally 
the stewardesses made me stop, but 
usually they were just curious to see 
what it was. 

The experience taught me a few things 
that might be useful to others. 

First, you need the big memory. Ser- 
ious work needs the full 24K of RAM 
with the 8K add-on. This holds enough 
sothat you can do a large memorandum 
without worrying about space. 

When writing my memorandum, 1 
now avoid using any print controls 


(Andrew J. Kleinfeld is an attorney who 
lives and works in Fairbanks, Alaska. 
During his many travels he depends on 
his Model 100 to keep his workload up 
to date.) 
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By Andrew J. Kleinfeld 


other than double spacing between sen- 
tences and pressing ENTER twice after 
paragraphs. The reason is that tabs and 
other controls create more work when 
the memo is eventually dumped into my 
Model III for final printout. If the text 
has tabs and forced line endings, one 
must go through it and delete them to 
get a good printout from a word pro- 
cessor. 

The Model 100 word processing soft- 
ware add-ons are doubtless very useful 
to people seeking final printouts from 
the Model 100, but they are likely to be 
detrimental to people generating their 
final documents with Superscripsit or 
other desk computer programs. All the 
special control codes will greatly increase 
secretarial time reformatting. 

Now, what to do when a document is 
complete, or so big that I’m worried 
about losing it? My original idea was to 
teach my secretary how to use my Vid- 
tex or Modem80 terminal program, and 
upload to her. But I’m always so rushed 
before a trip that I never got around to 
training her. The little bit of instruction 
l gave was always after a trip instead of 
before one, with a promise of more 
complete preparation when we had time, 
so it was useless. 

Getting the material out of the Model 
100 was essential in order to create 
space to do more work. The cassette 
recorder is impractical for trips, because 
of its size and weight. My briefcase 
hurts my back already, and the whole 
idea of the Model 100 is that it goes into 
the briefcase with my files, instead of 


taking up so much space that | can't 
carry files. If I put the cassette recorder 
in, too much could have to come out. 

Desperate for a middleman on whom 
I could dump text, I looked at the Com- 
puServe Personal Computing Guide, 
one of many virgin books of instruc- 
tions in my computer library. Typically 
for the genre, the instructions made it 
sound a lot harder than it actually was 
to use the service, while obscuring some 
of the really important cautions. 

The routine I developed lets me up- 
load the documents to CompuServe, 
have printouts mailed immediately to 
my office so that hard copy will be on 
my desk when I get back, and store the 
files in CompuServe. When I get back to 
my office, | download into my Model 
III and have my secretary reformat for 
Superscripsit printout. 

When a draft is complete, or big 
enough so that losing it would be a 
catastrophe, 1 call CompuServe from 
wherever I happen to be, and upload 
what I have. All I need carry is the direct 
connect cable, the acoustic cups for 
some hotel rooms, and the list of Com- 
puServe telephone numbers. 

Here is the CompuServe protocol. 
Dial the local CompuServe number, 
press control-C, and log in. | like to turn 
the Model 100 labels on, and keep them 
on throughout this procedure. 

Then type GO PCS and ENTER. 
Press the number for “programmers’ 
area," which has been 6 whenever I’ve 
done this. The prompt changes to *OK." 

Now type DIR and ENTER. This 


gives you a directory of your files. The 
first time you use it, the directory will be 
empty. After that, it will show you file- 
names, number of characters, and crea- 
tion dates. 

The directory check tells you two 
things. First, you can be sure that you 
won't accidentally write over one of 
your files by using the same filename. 
Second, you can make sure you have 
plenty of file space available. You have 
128K of space for free, and I think you 
can rent more through FEEDBACK, 
but I have never had to try. 

Choose a filename not already in 
your directory, which you will recognize 
when you get back to the office. For 
multiple drafts, | use numbers following 
names, e.g. SMITH I for my first draft, 
SMITH2 for my second draft. Writing 
over a draft seems like a needless risk. If 
l ever get up to SMITH6, and my space 
is getting full, I can delete SMITHI, 
SMITH2, and maybe SMITH3 and 
SMITH4. 

Type FILGE followed by the file- 
name you want CompuServe to use. 
Then press the Model 100 UPLOAD 
function key to command the Model 
100 to upload. 

Now pay attention to when Compu- 
Serve is asking questions, and when the 
Model 100 is asking them. The first 
couple of times I did this, I got confused 
about which system was talking to me 
and got all balled up. 

The first request for a filename comes 
from CompuServe, so type the name 
you selected for them. This will differ 
from the Model 100 filename, at least in 
not having the .DO suffix. 

The filename prompt after you press 
the UPLOAD function key comes from 
the Model 100. It is asking which Model 
100 file you want to be uploaded. Type 
the Model 100 filename. This will be a 
.DO file. 

Now you are asked for width. The 
Model 100 is making the inquiry, so that 
it will know how many characters to 
send between carriage returns. lf you 
just press ENTER, avoiding carriage 
returns, CompuServe will stop receiv- 
ing after 200 characters. This isn't too 
clear from the CompuServe Personal 
Computing Guide, but it became evi- 
dent after a half-hour of unsuccessful 
tries my first time. 

I like to answer the Model 100 width 
prompt with 40. This way, my Compu- 
Serve file looks just like my Model 100 
file looked on the screen, so it is easy to 
find things. 

Now the Model 100 file pours right 
into the CompuServe mainframe, and 


echos on the Model 100 screen. When it 
is done, the UPLOAD inverse video 
turns back to normal. 

Here is the most critical step. Type 
j EX and ENTER. If you don't, your file 
will not be saved. Not typing / EX in 
CompuServe is like doing an illegal exit 
from a word processing program, and 
losing your text. You have wasted your 
time if you omit this step. 

If the file is very important and | plan 
to killit in my Model 100 to make room 
for the next project, I like to have Com- 
puServe spit the whole thing back on 
my Model 100 screen, so that I can 
make sure it looks right. The command 
for this is TYP followed by the Compu- 
Serve filename. 

Then I go to the CompuServe print- 
out option. This causes CompuServe to 
print out my file and mail it to my office. 
The command R PRINT gets to the 
program. Then price information is dis- 
played. I’m rarely above the $3.50 min- 
imum, so each printout costs me $3.50. 
Press ENTER to get past the price 
information. Then type PRINT followed 
by the CompuServe filename. A print- 
out goes to your CompuServe billing 
address automatically. It is dot matrix 
printing on 14” green bar paper, not 
very pretty, but it makes you feel very 
secure when you see it on your desk 
upon your return. Also, a secretary can 
be instructed to do something with it 
pending your return, if necessary. 

When I get back to the office, I load 
Vidtex on my Model III, GO PCS, get 
into the personal computing area, and 
get a directory with DIR. 

Then I open a buffer on the Model IH 
and tell CompuServe to TYP whatever 
filename I want. When the download 
stops, | close the buffer and save it to 
disk, then zero out my Model III buffer. 
The file is now in ASCII form on a 
Model II disk. 

My secretary can take it from there. 
She reformats the ASCII file for my 
word processing program and gives me 
a pretty printout. 

If your CompuServe area gets too 
full, you can delete files by typing DEL 
and the filename. I never feel secure 
enough to do this, being a belt and sus- 
penders man from way back, so I just 
leave itto CompuServe to erase my files 
after 30 days. The automatic deletion 
can be avoided by accessing every 29 
days. CompuServe also has a file com- 
pression utility, but it is complicated 
enough so that I worry about acciden- 
tally destroying my work and | never 
use it. 

If you, too, area real worrier, you can 


go into a Radio Shack store and ask to 
dump out your files on paper. When I 
was recently in Dayton, I had a really 
big, important piece of work on the 
Model 100 that I was going to have to 
kill so that I could do my next project. 
After uploading it to CompuServe and 
having a printout sent to my office, I 
went to the local Radio Shack Compu- 
ter Center and asked if I could print out 
the file. 

Unbelievably, the whole process work- 
ed just as TRS80 Microcomputer News 
had said. They had a daisy wheel printer 
and a Model 100 printer cable all hooked 
up and ready for drop-ins like me. I 
hooked up, opened my document, pres- 
sed SHIFT and PRINT, and let er rip. 
They even offered me coffee and dough- 
nuts while it printed. With the hard 
copy in my briefcase (I worry too much 
to put it in checked baggage), I felt 
secure enough to kill the file in the 
Model 100, though I had the usual feel- 
ing of jumping offa cliff when enteringa 
KILL command. 

In ancient days, six months ago, | 
didn’t produce much final, usable work 
on trips. Handwriting is too slow and 
difficult to do legibly on a plane or on 
my lap. Dictation is fine for letters, but 
doesn’t work for me on very complex 
documents because I get confused on 
what I have and have not said. Also, a 
lot of environments are too noisy or too 
public for dictation. 

The effect of it all is that the Model 
100 paid for itself on the two-day trip 
and helped me avoid a lot of pressure 
while enabling me to make a lot of 
money on the [0-day trip. | have not 
had to expand my secretary's training to 
terminal programs. The whole process 
is smooth and easy. 


CHEAT SHEET 


1) Bring up TELCOM on the Model 
100. 

2) Press function key 4, "Term" 

3) Call CompuServe 

4) CONTROL C 

5) GO PCS 

6) 6 ENTER 

7) DIR ENTER 

8) FILGE (CompuServe filename) 

9) Press function key 3, "Up" 

10) (Model 100 .DO filename) ENTER 

11) Answer “width?” question with 40 
ENTER 

12) When the upload ends, / EX ENTER 

13) TYP (filename) ENTER to test 
upload 

14) R PRINT 

15) PRINT (CompuServe filename) 
ENTER PCM) 
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(Dr. Laurence D. Preble is a Louisville 
chiropractor who worked his way 
through college by programming. His 
avocational interests include flying and 
ham radio. His interest in microcompu- 
ters dates from when you had to build 
your own — which he did.) 
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hen an amateur radio oper- 
ator listens in on the Novice 
Band, he or she is not sur- 


prised to hear a LID or two. That is the 
ham’s term for a sloppy-poor code 
transmission or radio procedure. But 
then, the Novice Band is a place of 
learning, a place to develop skill in the 
International Morse Code, a place to 
learn the proper operating procedures. 
Still, it is not unusual to hear some sur- 
prising Code from Novices (rock solid 
fists and relatively high speed). Maybe 
they have an edge... 

lama Novice myself (KAOBNK/4). I 
am striving for that all important Gen- 
eral Class License, the Golden Fleece of 
Amateur Radio. The rite of passage is 
defined by a written technical examina- 
tion and by that big bugaboo, a 13-word 
per minute Code test. 

Tough requirements, but I have an 
edge. My trusty Model 100 is program- 
med to teach and improve my skills at 
Morse Code. In addition, my 100 also 
interfaces directly with my transceiver 
(a Heath SB-102) to send code over the 
airwaves at any speed I select up to 65 
words per minute. 

The Model 100 is especially well 
suited for this application since it is well 
shielded against radio frequency (RF) 
interference. 1 checked all the Novice 
Bands for birdies, squeaky or whistling 
sounds that indicate RF interference. 
No birdies! The only unusual noise was 
my own happy whistling. 

The program is easy to operate as a 
keyboard sender. Just start it up, engage 
the caps lock button, tell the computer 
how fast you want to send and start 
typing! The Model 100’s nifty type 
ahead feature really comes in handy 
here. Also included are several special 
functions or enhancements. 

To call up a special function, type a 


command at the beginning of a line and 
press ENTER. Here isa list of the avail- 
able commands. 


CQ—Sends message inviting other 
stations to communicate. 

CALL—This command may be used 
after initial communication is es- 
tablished to call a specific station. 

RST—Sends UR RST IS... (Read- 
ability on a scale of 1 to 5, Signal 
strength on a scale of 1 to 9 and 
purity of Tone also on a scale of 1 
to 9. 

QTH-— This command sends your 
Home location (QTH) and your 
name. 

RIG—Sends description of the type 
of equipment you own. 

LOG—Use this command at end of 


conversation (QSO) to log the par- 
ticulars of the contact. By the way, 
when you first call another station 
(eg., WN6EOG DE KAOBNK), this 
program checks to see if you have 
previously contacted this station 
by scanning the LOGS. 

DRILL—My favorite function! 
Gives two types of practice sessions 
to improve your code. 

HELP—Displays the list of available 
functions. 

!—(SK) Sends end of message code. 

@—(AR) Sends end of transmission 
code. 

5-65— Preface a transmission with a 
number between 5 and 65 to change 
speed of code transmission. 

F1—Press the Fl special function key 
to interrupt a transmission. 


The program uses the cassette re- 
corder motor relay to control your 
transmitter. The output is through the 
subminiature phone plug on the cable 
for the cassette interface. For practice 
sessions you may either turn your trans- 
mitter output down to zero and listen to 
the side tone, if available, or you may 
connect the relay output to a practice 
code oscillator. Please do not inadvert- 
ently send your practice sessions over 
the airwaves! 

Also, please do not leave my call sign 
plugged into this program! Naturally, 
you should substitute your own call 
sign, name and location of your station 
in the appropriate places. 

I’ve enjoyed this QSO! TNX FER lis- 
tening. CUL and 73’s DE KAOBNK SK. 


The listing: 
100 CLEAR 18080: MOTOROFF 

118 DEFINT A-Z:DEFSTR C 

120 DIM CH(98) 

130 ON KEY 608UB?10,930 

148 KEY ON 

150 CLS:INPUT"ENTER CODE SPEED (WPM) "3W 
16@ PRINT"Engage CAPS LOCK button":PRINT 
178 PRINT:PRINT"To change WPM, begin a l 
ine with a number from 5 to 65":BEE 
P:PRINT: INPUT"Press ENTER to Continue";A 
$:CLS 

18@ GOSUB84Q 

190 GOSUBA7Q 

200 CLS:PRINT"SPECIAL FUNCTIONS: ":PRINT" 
ca - Calls CQ" 

210 PRINT"RST 
220 PRINT"GTH 


Sends UR RST IS" 
Sends Location and Nam 


230 PRINT"RIG - Sends equipment type" 
240 PRINT"CALL -~ Calls other guy" 

250 PRINT"DRILL - Sends practice code" 
260 PRINT"RPT - Repeat last line [Pres 
s ENTERI";:LINE INPUT A$:CLS:PRINT"! 

- End of work (SK)":PRINT"G - End o 
f message (AR)" 
270 PRINT"LOG 
rogram" 

280 PRINT"HELP 

ist" 

290 PRINT"Begin sending:" 

308 LINEINPUT A$ 

310 IFA$z""THENSQBELSEIFA$z"HELP"THEN200 
ELSEI-0:808UB70011F A$<>P$ THEN P$=P$+" 

"SASSAS+MIDS(P$,INSTR(1,P$," ")):PRINTA$ 
1)P$z05$ 

320 FOR J=1 TO LEN(A$) 1F ASC(MIDS(AS,UJ, 
1))>91 THEN MID$(A$,J,1) :CHR$(ASC(MIDS(A 
$,3,1))-32)sNEXT J ELSE NEXT J 

330 IF LEN(A$)SITHENSOQELSE [=I +i: 1$=MID 
$(A$, 1,1) sWDS=CH(ASC(I$) SIF ASC(I$)=32 

THEN FOR K=1 TO S«T:NEXT K:GOTOS3@ 


- LOG contact and exit p 


- Display the function 1 


340 FOR J=1 TO LEN(WD$) 

350 IF MID$(WD$,J,1)="1" THEN GOSUBSB@EL 
SE GOSUB420 

360 NEXT J:IF R%=1THEN GOSUBA50 

370 6070460 

380 MOTOR ON 

390 FOR K=1 TO T:NEXT K 

400 MOTOR OFF 

410 FOR K=1 TO T:NEXT K:RETURN 

420 MOTOR ON 

4380 FOR K=1 TO TT:NEXT K 

440 MOTOR OFF 

450 FOR K=1 TO TINEXT K:RETURN 

460 FOR K=1 TO 2«T:NEXT K:IF I=>LEN(AS) 
THEN3OBELSE330 

470 FOR X=44 TO 9Q:READ CH(X):NEXT X 

480 DATA 221122,21112,121212,21121,22222 
:12222,11222,11122,11112,11111421111,221 
11,22211,22221,222111,212121,"" ,"","",11 
2211,12121 

490 DATA 12,2111,2121,211,1,1121,221,111 
1,11,1222,202,1211,22,21,222,1221 2212.1 
21,111,2,112,1112,122,2112,2122,2211 

500 CH(33)="111212" 

510 RETURN 

520 'PRACTICE 

530 A$="" 

540 Z-VALIRIGHTS(TIMES,2)) 

550 FOR X=1TOZ:Y=RND(X) :NEXT 

560 CLS:A$="":PRINT"1 - RECOGNITION":PRI 
NT"2 - CODE GROUPS":INPUT" CHOOSE 1 OR 
2";C%rIF C421 THEN R%=1ELSER%=0 

570 INPUT"HOW MANY GROUPS OF 5 WORDS";G 
580 FOR Z=1 TO G 

590 FORXs1TOS:FORYs1T05:60SUB610:0$zA$*C 
$1NEXTY:0$z20$*" "NEXT X:NEXTZ 

680 RETURN 

610 C$zCHR$(RND(Z)947444) i IF C$>"-" AND 
C$<"Q" THENSIBELSEIFC$>"9" AND C$("A"THE 

N61QELSERETURN 

520 ‘RECOGNITION 

630 I-I*1 
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ORDER 
NOW... 


Z AT ERR 


CASS 


PA 
/ 
/ fe 


COMPUTER GRADE 
DATA TRAC 


BLANK CASSETTES 


C-05, C-06, C-10, C-12, C-20, C-24, C-30 


From the leading supplier of Computer Cassettes, 
new, longer length C-12's (6 minutes per side) provide 
the extra few feet needed for some 16K programs. 


c BASF-LHD (DPS) world standard tape. 
Premium 5 screw shell with leader. 


Internationally acclaimed. 
Thousands of repeat users 


GA Error Free e Money back guarantee. 


CASSETTE STORAGE CADDY 
Holds 12 cassettes 

w/o boxes 

Includes edge labels 

and index card 


FREE 


P 
1 CADDY WITH EVERY 
4 DOZ. CASSETTES PURCHASED 


500 C-12's or C- 10's — 38e each 
(w labels. add 4€ e Shipping $17. ‘S00 
500 Boxes 13€ ea. è Shipping $10. ‘500 


TRACTOR FEED » DIE-CUT 

BLANK CASSETTE LABELS 

„gag WHITE: $3.00/100 $20.00/1000 
Zs COLORED LABELS © Pastels - 


NE Red, Blue, Green. Yellow, Lavender 
$4.00/100 $30.00/1000 


EX Call: 213/700-0330 ' mMEDIATE shipment (EE 


9525 V Ave #P3 
D" YORK IO" Sos vts 


g = æ æ æ æ w- ORDER FORM m wm um =m um um um m 


#P3 a 
includes two YORK 10 

labels only. Boxes are 

sold separately. We 

prefer to ship by UPS 














as being the fastest and 
safest. If you need ship- 
ment by Parcel Post 
check here C) 




















NOTE Additional 
charges outside 48 
Continental States 
Shipments to AK. HI 
and USA possessions 





Color = à 

DESCR;? TION PAICE — QUANTITY 

Storage Caddy — 2.95 

Calit. residents add sales tax E 
Shipping ‘handling (any Quantity — using prices above) 
Outside 48 Continental States — Additional $1 per 
caddy; per doz. cassettes or boxes. 
E ce RITARDI eri 
CHECK OR M.O. Charge to 

ENCLOSED [] Credit Card: VISA [] MASTERCARD O 
[] PLEASE SEND QUANTITY DISCOUNTS 


go by Priority Mail 
Canada & Mexico— 
Airmail 


I 
I 
H 
I 
i 
à 
4 
[| 
All others— Sea Mail [| 
à 
L| 
i 
L| 
j 
ï 
I 
1 
1 












Ask about our 
DUPLICATING 
SERVICE 

















Card No. —- E S Exp; ——— 
Name fcm Omm = 
AGGIOSS ——— — = = = = 
City — ee STC CA |: 2. x 
SOUE m —.—-— Phone 





Computer make & model ———————————— Disk? (y/n) ——— 


18 PCM 


January 1984 


648 GOSUBS40: RETURN 

650 ‘RECOGNITION 

660 CLS:PRINT6180,1$; 

670 D$-INKEY$:1IF D$z""THENé78 

680 IF D$45I$ THEN I=I-1:SOUND 3000,10 
698 RETURN 

700 ' CK SPECIAL FUNCS 

718 AS=AS+" " 

720 WD$zLEFT$(A$,INSTR(1,A0$," ")-1) 
730 IFWD$z"RPT"THENA$zPSELSEP$z4$ 

740 IF WD$="CQ"THEN A$="CQ CQ CO CQ Ca D 


E KABBNK KABBNK CO CA DE KA@BNK 
RN 

750 IF WD$z"QTH" THEN A$="QTH OTH IS LOU 
ISVILLE LOUISVILLE, KENTUCKY -- NAM 
E IS LARRY LARRY --":RETURN 

760 IF WD$z"RST" THEN A$z"UR RST RST IS 

" RETURN 

770 Z=INSTR(S,A$," DE "):1F Z>@AND Z«18 

THEN 8SO$sLEFT$(AS$,INSTR(1,A$," ")-1)1CL 
$=Q50$+" DE KABBNK":GOSUBB858: RETURN 

780 IFWD$="CALL" AND CL$>"" THEN A$-CL$E 
LSEIFAS="CALL "THENPRINT"CALL UNKNOWN":A 
$=" "RETURN 

790 IFWD$z"RIG" THEN A$="RIG RIG HR IS H 
EATH HEATH SB-102 - ANT IS TUNED RAN 
DOM WIRE -- USING RADIO SHACK MODEL 1 
0A COMPUTER FER SENDER ":RETURN 


K':RETU 


880 IFWD$="DRILL" THENS28 

810 W=VAL(LEFT$(A$,3)):IF W>4 AND W<66 T 
HEN &A$-MID$(A$,INSTR(1,A0$," ")):60T0840 
820 IF WD$-"LOG" THEN9?50 

838 RETURN 

840 T2791.800/W-9.054*, S1TTZ SXT: RETURN 
850 RESTORE99@ 

860 READ Z$:IF Z$="END" THEN RETURN ELSE 


IF 2$428080$ THEN850 
870 IFZ$=ZZ$ THEN RETURN ELSECLS: BEEP: BE 
EP:PRINT8S0$;" is old contact” 
880 READ Z$:1F Z$="END" THENB89BELSE PRIN 
TZ$3 PRINT 
898 INPUT"Abort Call";Q$:IF LEFT$(Q$,1)= 
THEN AS=" "iCL$z-""i;P$z" "190S0$-" "1C 


22$2080$:RETURN 
' BREAK OUT OF SEND 

A$z" "RETURN 
"RPT KEY 

A$-P$:60T0310 
‘LOG FUNCTIONS 

EDIT980- 

RETURN 
“EXAMPLE: 

DATA WNSE0G, "09/28/83 15:33 GMT 7128 
LARRY IN LA, CA” 
DATA 
DATA 
DATA 
DATA 


DATA END [PCM 





ave you ever wanted to see 
what's in ROM? Here is a handy 


disassembler for just that pur- 
pose. And while there are no bells and 
whistles in this little program, I think 
you will find it very useful for that 
machine language work you've been 
wanting to try. 

The disassembler comes in two parts. 
First is DISASM.BA, the main BASIC 
program. Second is OPCODE.DO, the 
mnemonic text file. Both must be resi- 
dent in the computer. If you will look 
briefly at OPCODE.DO, you will no- 
tice that the mnemonics | have used are 
not standard. They are an attempt to 
simplify and improve the clarity of 
assembly language mnemonics. They 
are by no mcans the only possibilities, 
and are included only to give you a place 
to start. You may substitute any mne- 


monics of your own choosing, within 


(Larry Randall, who has been using 
computers since 1975, is a retired navy 
technician and writes software both for 
fun and for his job with Burrough 
Corp.) 


By Larry Randall 


certain limits, as follows: 

1) Mnemonic must be l6 characters 
or less; and 

2) Special characters 
be used in the same way. 

These special characters are used by the 
program in this way: 

1) The *!" will be replaced by a single 
byte of Hex data by DISASM.BA; and 

2) The “#” will be replaced by a dou- 
ble byte of Hex address in the "byte 
reversed" format by DISASM.BA. 

The mnemonics, yours or mine, must 
be entered into a text file of one state- 
ment per line. (For example, NOP fol- 
lowed by the ENTER key). Do not enter 
the Hex number preceding the mne- 
monic. These are only included as a ref- 
erence indication of where in the se- 
quence the mnemonic goes. First is 
NOP, followed by ENTER, then BC=# 
(ENTER), then(BC)=A (ENTER), then 
INC BC(ENTER), then INC B(ENTER) 
... and so forth. 

That’s all there is to the opcode sec- 
tion. The program itself is even easier to 
use. Start by typing RUN. You will first 
be asked for a start address. You may 


«pm 


and “#” must 


enter a decimal or a Hex address. The 
Hex address must be preceded by an 
"H"(H3FF7A, for example). Next, you 
will be asked where you want the output 
to be sent. Your choices are LPT for 
printer, or LCD for display. Instead of 
LCD you may simply press the ENTER 
key for display. To stop the disassem- 
bly, press ENTER again and the pro- 
gram will return to start. Use the PAUSE 
key to slow things down so you don’t 
burn out your eyeballs. One thing you 
will notice is the hesitation in the print- 
out about every 25 or 30 lines. I believe 
this isa string cleanup routine built into 
ROM. If you change the CLEAR state- 
ment in Line 70, to 50000 for example, 
the hesitation occurs less often. 

The "code lister" at the bottom of the 
program is to give you a listing of the 
mnemonics and Hex codes for refer- 
ence. Execute this section by typing 
RUN 160. If you do not want a listing it 
is not necessary to enter Lines 150 
through 190. 

See the following section for informa- 
tion on how the program works. That's 
all there is to it. Have fun! 





DESCRIPTION OF OPERATION 


LINE# WHAT IT DOES 

10 Bypass subroutines. 

20-30 Decimal number in “X” be- 
comes Hex in "XS." 

40-50 Get memory contents point- 
ed to by “AD” and convert 
to ASCII in “AS” and Hex 
in “X$.” 

60 Develop COS for later print- 
ing. 

70 Initialization. Get mnemon- 


ics from “OPCODE” and 


put into OPS. 

Get address. If it is preceded 
by "H"itis Hex so convert to 
Dec. 

Get destination of Disassem- 
bly. 

Open file for Disasm 
(LCD/ LPT). 

Convert address to Hex and 
get opcode from OPS. If 
there is a “#” get next two 
bytes, reverse them and place 
where *£" was. Then pro- 
ceed to print out. 

Check opcode for a “!.” If 
yes, get next byte as data and 
place it where “!” was. 


100 


110 


120 


130 


Print it all out as follows: 
ADDRESS 

CODE AS IT APPEARS 
IN MEMORY 
MNEMONICS FOR CODE 
SEMICOLON 

ASCII EQUIVALENT OF 
CODE 

Then check for pressed ENTER 
key. If yes go to start else 
continue with disassembly. 
Lists out mnemonics from 
‘OPCODE.DO,” with preced- 
ing Hex equivalent, four 
wide for 80-column printer. 
These lines are not required 
for operation of DISASM. 


140 


150-190 
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Radio Shack Presents 


THE NEW TRANSPORTABLE 


The 
Computer 

for Today’s 
Upwardly 
Mobile 
Society 

If you're headed 
for success, our 
newest TRS-80 
can help you 
get there in 
record time. 
Model 4P is a 
compact, disk- 
based desktop 
computer with a big difference: 
it has a handle. So wherever 
your work may take you, you 
can get a handle on those 
tricky scheduling problems, 
ever-changing sales projec- 
tions, and last minute reports. 
It's like taking your office 

with you. 


Easy to Use, Easy to Tote 
The Model 4P works anywhere 
there's AC. It has the power 
and versatility to function as 
your office desktop computer. 
Or take the Model 4 to a 
client's office to calculate bud- 
get projections. Present 
graphic information in a confer- 
ence room. Finish up a con- 
tract proposal at home, or 
electronically send back the lat- 
est figures to the home office— 
from your hotel room! With our 
wide array of expansion op- 
tions, the number of uses is 
limitless. And when you're 
ready to move on, slip the key- 
board into the sturdy plastic 
case, snap on the protective 
cover and go. The Model 4P 
weighs just 26 pounds, and it's 
small enough to stow in over- 
head luggage racks on planes, 
trains or buses. 





The Completely 
Self-Contained System 

We don't sacrifice features for 
portability, either. The Model 4P 
comes standard with two 184K 
disk drives and 64K internal 
memory. You also get a full 
80-character by 24-line 9" dis- 
play and an electric typewriter- 
quality keyboard with numeric 
keypad. In addition, both 
printer and communications 
interfaces are included. 


Expand as Your 

Needs Grow 

The Model 4P can be ex- 
panded as your work de- 
mands. Because it's also a 
powerful desktop computer, the 
Model 4P has a large data stor- 
age capability—add up to four 
hard disk drives for an extra 20 
megabytes of storage! You can 
also increase the 64K internal 
memory to 128K. And with the 
640 x 240 pixel high-resolution 
graphics upgrade (26-1126, 
$249.95), you can create so- 
phisticated business graphs, 
tables, charts and more. 


Stay in Touch— 
Anywhere, Anytime 

Install Model 4P's internal mo- 
dem board (26-1084, $149.95) 
and you can access the huge 
data bases of computerized in- 
formation services by phone. 
The latest information of all 
types— sports, weather, gen- 
eral and financial news—is 
only a few keystrokes away. 
Read movie reviews, shop and 
bank from your home, or do re- 
search with an electronic ency- 
clopedia. In addition, you can 
communicate with your office 
mainframe so you can access 
vital business information 
whenever you want. 


Choose from an 

Extensive Library of 
Ready-to-Run Software 
Simply add ready-to-run pro- 
grams for word processing, 
accounting, spreadsheet analy- 
sis, data base management 
and many other professional 
applications. In addition to run- 
ning the entire selection of 
TRS-80 Model III/4 disk soft- 
ware, you can add the optional 
CP/M Plus" operating system 
(26-2216, $149.95) to use thou- 
sands of additional ready-to- 
run programs. Because 

Model 4P is compatible with so 
much software, you're sure to 
find programs ideally suited for 
you. So you won't have to pay 
for software features you never 
use, or for software that 
doesn't provide all the features 
you need. 





The Transportable 
Computer For You 
Compare the TRS-80 

Model 4P with other transport- 
ables and see why you get 
more for your dollar. The 
Model 4P's standard fea- 
tures—large disk storage, full- 
size screen, typewriter-quality 
keyboard, and huge software 
base—give you a complete 
workstation to increase your 
productivity both in the office 
and out. 


TRS-80 MODEL 4P COMPUTER 


Like All TRS-80’s 
We Stand Behind The 
“4P” Computer 100% 





Tandy Corporation is a solid 
two-and-one-half billion dollar 
company with over 6,600 
stores nationwide—and still 


growing. In addition to a wide 
selection of software and a 
complete line of accessories, 
we offer businesses a 37- 
month lease for computer sys- 
tems valued over $1500. And 
when you buy a TRS-80, 
you're assured of after-the-sale 
support. We offer “Carry-In” 
and “On-Site” service at over 
300 company-operated repair 
centers nationwide. And with 
just a phone call, our Com- 
puter Customer Services 
Department will answer any 
TRS-80 related question you 
might have. In addition, we 
publish a monthly TRS-80 
magazine that’s packed with 
operating tips, product news 
and more. 


Learn All About 
Model 4P Today 


Stop by your nearest Radio 
Shack Computer Center, par- 
ticipating store or dealer and 
find out where Model 4P will 
take you. And learn more 
about the leasing, training, 
service and support that 
every TRS-80 owner can 
depend upon. 


The biggest name in little computers” 
A DIVISION OF TANDY CORPORATION 
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The listing: 


@ ' DISASM.BA v3.0 by: 1. randall 
12306 Teri Dr. Poway, Ca. 92064 

12 GOTO7@ 

20 X$=""sZ=X 

30 YsINT(Z/186):X2Z-Y*16: ZZY: X$2MIDS$ (HS, X 
*1,1) *X$1 IFZC20THENSQOELSERETURN 

48 A=PEEK(AD) s IFAC IZORA>1L26THENAS=AS+" " 
ELSEA$=A$+CHR$ (A) 

50 X=AsGOSUB2@: IFLEN(X$)<2THENX$="Q"+X$ 
60 COS$=CO$+X$: AD=AD+1: RETURN 

70 CLEAR2500: DEF INTA-Z: DEFSNGA,X,Z:DIMOP 
$(255):H$z"0123456789A5BCDEF"1 CL8S: PRINT"I 
NITIALIZING ..."sOPEN"OPCODE"FORINPUTAS! 
:FORIZQTO2S5S:LINEINPUTR1,O0PSCI): NEXT: CLO 
SE1 

88 CLS:PRINT"DISASSEMBLER 
BY: 1. randall":PRINT 

90 INPUT"START ADDRESS": X$: IFLEFT$(X$,1) 
<>"H"ANDLEFT$(X$,1)<>"h"THENAD=VAL (X$) 1G 
OTOLOG ELSEX$2MID$(X$,2,LEN(X$)) 13X20:H17 
LEN(X$) :xFÜRHZITOH1: XX * CCINSTR(I,H$, (MID 
$(X$,H,1))) 1) 15^ H1 -H) ) s NEXT: AD=X 


v3, 0" : PRINT" 





Plot Against Your Competition! 
with QuickPlot® 


1800 LINEINPUT"QUTPUT TO: ";FN$:1IFFN$z""T 
HENFN$z"LCD: "ELSEIFFNS="LCD"ORFNS="LPT"T 
HENFN$-FN$*":"ELGE1900 
110 QOPENFNS$FOROUTPUTAS1 
120 X-AD:G08UB20:AD$2"000Q0":MID$ (AD$,S5-L 
EN(X$)) 2X$:10P$z0P$ (PEEK (AD) ) :5$z"": GOSUB 
4@:P=INSTR(OPS,"#"): IFP< SOTHENGOSUB4Q: X2 
$2RIGHT$(X$,2) 1505UB40: X$zRIGHT$(X$,2) +X 
2$:0P$-LEFT$(OP$,P-1) *X$*MID$(OP$,P*1)18 
0TO14Q 
138 P=INSTR(OP$,"!"):s IFP< SOTHENGOSUB4O:0 
PS=LEFT#(OP$,P-1) *RIGHTS$(X$,2) +MIDS (OPS, 
P*1) 
140 PRINTS1,USING"V \ \ NN 

ANAA M :4D$;C0$;0P$; "5" 3 A$1CO0$z " "1I 
FINKEY$=""THEN1 20ELSECLOSE1:GOTO8@ 
158 REM --------- CODE LISTER --------- 
160 CLOSE: H$="0123456789ABCDEF": J=@: OPEN 
"DPCODE"FORINPUTAS1 
170 FORIsQTOS: IFEQF (1) THENCLOSE: END 
188 LINEINPUTS1,A$:X2J0:G08UB20: J*J*1:IFL 
EN(X$) COTHENX$2"Q"«*X$ 
190 LPRINTTAB(I*20);USING"NV \ 
V'34$530$; 2NEXT: LPRINT: 6070170 





COMPANY x*£2 


MONTHLY SALES ANA 








SALES (x 1000) 


BEAST CCAS 


MMID-WEST 





















We've just given the CGP-115 Color 
Plotter business status. With Quick- 
Plot, your TRS-80 or IBM-PC can 
produce high quality line-, bar-, and 
pie-charts in vivid color. Simple data 
entry and flexible chart formatting 
makes QuickPlot and the CGP-115 
Color Plotter the logical choice for 
the professional who wants to plot 
his profits—not spend them. 
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Complete QuickPlot Package Model 11/12/16 ........... 





j CERTIFICATION 
SEAL 





Now you have a friend in the software business. 

























Includes: Bar Chart, Pie Chart, Modellll/4 ............. $89 
and Line Graph. Data and chart Model 100.............. $49 
formats save to disk for future IBM-PC/XT ............. $89 
plotting. 


901 Embassy Square Blvd. 
Louisville, KY 40299 
(502) 491-6122 


Call or write to place your order or send for free 
information. 









TRS-80 and CGP-115 are registered trademarks of Tandy Corporation. PC and 
PC/XT are registered trademarks of IBM Corporation. 
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Tandy Apples: The Model 100 
Apple Connection 


By Gene Cassidy 
and 
Bill Blue 


adio Shack's Model 100 is quite 
R: machine, and it's notebook- 

sized portability and built-in soft- 
ware answered a real need in my daily 
travels. But as a happy Apple II+ owner, 
] missed the disk storage, full-screen 
editing, word processor formatting and 
CP/ M capability of the at-home system. 

One of my first projects after acquir- 
ing the Model 100 was to interface it to 
the Apple. This proved to be more diffi- 
cult than anticipated. The solution to 
this problem may be helpful to others. It 
was done without adding a second phone 
line and calling modem to modem, 
which is an obvious answer but a con- 
tinuing expense. 

A friend with a Hayes modem and 
ASCII Express software (operating un- 
der Apple D.O.S. 3.3) was able to 
transfer data by connecting the modular 
plugs of the modems on each machine 
with a double female connector, then 
dial a non-existent number and connect 
with the Model 100 in ANSwer mode. 
To do this make sure the modem status 
in word length, parity, stop bits, and 
Baud rate are the same on each machine! 
Data can then be sent back and forth 
using each machine’s software features. 
This must be done at 300 Baud using the 
Model 100’s internal modem. 

This did not work for me because | 
use Z-Term “The Professional,” which 
is the Apple CP/M twin of ASCII 
Express "The Professional.” These ex- 
cellent programs, published by South- 
western Data Systems, share similar 
commands. But Z- Term Pro (like ASCII 
Express Pro) has the added feature of 
looking for a dial tone before dialing. 
Defeating this by plugging into the tele- 
phone system as dialing begins and then 
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(Gene Cassidy is a pathologist at Scripps 
Hospitals in Encinitas and La Jolla, 
California. His special interests include 
surgical pathology, medical microbio- 
logy, online databases, French wines 
and diesel engines.) 





( Bill Blue is president of Marilla Corp., 
Santee, California, specilizing in com- 
puter hardware and software. Well- 
known computer communications pro- 
grams he has authored include ASCII, 
EXPRESS, Z-TERM, and the PUB- 
LIC MESSAGE SYSTEM bulletin 
board.) 


quickly disconnecting from the tele- 
phone system did not seem technically 
elegant (and also required a lot of crawl- 
ing around under the table). 

I also wanted to avoid taking apart 
the Apple to get at the serial card which 
usually drives my serial printer, change 
microswitches, etc., every time data was 
transferred. Since modems are serial 
devices, there must be some way to 
bypass the modem part and get to the 
serial part as an input; output device. 

Since I have an Apple Cat II modem 
by Novation, I started there. This mo- 
dem has performed flawlessly for me. 
Bill Blue, author of the two above 


the RS-232 connector and pin number- 
ing (page 205). 


Connect and solder the flat cable at each 
end as follows: 


Female Inline Socket RS-232 
for Apple Cat 11 Female 
Expansion I/O J2 Connector 
ur PG e 3 
(Output Transmit Data) (Receive Data) 
o ———HRÓ eee 2 
(Input Received Data)(Transmit Data) 
d] cetcrdesseti nat meon Henin EEEN 2 
(Signal Ground) (Ground) 


“There you have it. This custom cable will now 
connect the Apple Cat ll expansion pins to the 
Model 100 serial output cable.” 


communications software programs, 
came to my rescue. He analyzed, and 
then bench-tested with a breakout box 
to follow the connections to and from 
the Apple Cat II! modem card and 
Model 100 serial port. The problem was 
solved. My chief contribution was find- 
ing the female inline header socket 
needed to connect to the Novation card. 
This was harder than expected: success 
required visiting three electronics stores, 
culminating in a TV repair supply shop. 
Here’s how: 


Materials 

4-pin (6 or 8 will work as well, some pins 
are left unused) female inline header 
socket 


Several feet of flat multiwire cable (only 
three wires are used) 


Female RS-232 plug with fittings hard- 
ware 


Model 100 serial output cable with male 
RS-232 plugs at each end (Radio Shack 
Part 426-4403 or equivalent). 


Procedure 

From the Novation Apple Cat II Instal- 
lation Manual, indentify expansion lI; O 
multipin connector J2 and pin number- 
ing (page 3). 


From the Model 100 manual, identify 


Make good solder joints. Double 
check the pin connections, especially of 
the Apple Cat II modem, to avoid 
potential damage. Pins should not touch. 
Shield connections with insulating tape 
as necessary. There you have it. This 
custom cable will now connect the Apple 
Cat Il expansion pins to the Model 100 
serial output cable. Modifications of 
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this connection pattern should be pos- 
sible for other types of modems and 
microcomputers; check your manuals 
for modem pin designations. 

It is imperative that the communica- 
tions program in the Apple and the 
TELCOM program in the Model 100 
both be set to compatible data transmis- 
sion parameters of word length, parity, 
stop bits, and Baud rate. In the TEL- 
COM program, remember to configure 
the STAT function to something other 
than the M default, which drives input; 
output of the machine through the 
built-in modem. Thus, bypassing the 
internal modem will send the input; 
output of the Model 100 to the serial 
port. I have set this to 58N1D; for some 
reason my Model 100 does not like 
(Dgnore parity with 8-bit words but 
must have (N)o parity. See Page 86 of 
the Model 100 manual. 

Now, on the Apple, set the Apple Cat 
port command in Z-Term for Cat Re- 
mote and set the Baud rate to 1200. 
From this, using appropriate software 
commands on both machines, data can 
be sent back and forth. The Model 100 
text and BASIC programs can then be 
stored on Apple disks. One final prob- 
lem, the Model 100 sends data without 
linefeeds; the CP/M operating system 
requires linefeeds. After incoming data 
has been captured by the Apple and 
written to disk, the CP/M public do- 
main program FILTEX.COM done to 
the data now on disk will add linefeeds. 
Some CP; M word processing programs 
may be able to do this (especially with 
text) by formatting the linefeed-free 
data which has bcen received. PCM] 


see and hear 
what’s new for your 


TRS-80° 
Color 
Computer 


The Largest Color Computer Exhibition Under One Roof 


x “CoCo Community” Breakfast 


* Seminars On Many Subjects 


x See All The Latest CoCo Products 


Cost: $12 Three-Day Ticket 
$ 8 One-Day Ticket 
$12 Breakfast Ticket 


HYATT-REGENCY LONG BEACH 


Sponsored by the RAINBOW 
The Premier Color Computer Magazine 


Information: Cali (502) 228-4492 


TRS-80 is a registered Trademark of Tandy Corp 
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Save valuable storage space with this program shrinker. 


PRUNING 





YOUR 


PI25 277 





pr TAS SOIT. 


By Dale Wheeler 


(Dale Wheeler, an electronics techni- 
cian for Hendrick Medical Center in 
Abilene, Texas, has been "into compu- 
ters for about four years, starting with 
the TRS-80 Color Computer." He is 
also a ham operator with an extra class 
license. His call number is AG5W.) 


ne of the things I like best about 

my M100 is that when the com- 

puter is turned off, the programs 
in memory are not lost. With this fea- 
ture it is possible to kcep some very 
useful software on line without having 
to fuss with tape recorders or cables 
every time I want to use them. 

When I bought my portable, it had 
8K of RAM which was later upgraded 
to 16K. With this limited storage capac- 
ity it is very important to keep only the 
most used programs in memory and to 
make sure they have been reduced to the 
shortest form possible. This includes 
deleting all unnecessary spaces and thc 
removal of unwanted REMark state- 
ments. The PRUNE program provides 
for these functions in the following 
manner. 

Unnecessary spaces in your BASIC 
programs are automatically eliminated 
in all cases. REMark statements pre- 
ceded by the long form "REM" format 
can be deleted if desired while the short 
form “°” format will always be left in. 

While writing a program I find it 
helpful to separate the BASIC commands 
with spaces. This makes things quite a 
bit easier to read when attempting to 
chase downa bug. It is also useful to use 
REMarks liberally for the same reason. 






Also, while copying programs from a 
magazine, it is very helpful to follow the 
printed listing exactly as it appears. This 
includes entering all spaces and REM- 
arks. In doing this it is possible to check 
yourself for typing errors at the end of 
each line. If your line does not end the 
same as the one in the magazine it can be 
assumed that you have blown it... 
This is only true, however, if the maga- 
zine lists the program in a 40-column 
format that matches the M100 screen. 

With PRUNE you can indulge in 
these memory wasting procedures with- 
out worry. After the program has been 
fully debugged, run it through PRUNE 
and a trimmed version will result. Just 
remember to precede any REMark you 
want left in the finished program witha 
=” and any that you can do without 
should be preceded with the long form 
SREM.” 

Before you can PRUN Ea program, it 
must first be saved with the command 
SAVE “name”, A ENTER — where 
“name” is the name of your program. 
The results will be an ASCII version of 
your program saved to RAM. 

When you run PRUNE the first 
prompt encountered will be “Delete 
REM statements? (Y / N)." If you want 
the REMark statements removed, press 
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the Y key and, of course, N is for no. All 
of the files in memory will now be dis- 
played, followed by the prompt “File 
name.” Type in the name of the target 
program and press ENTER. If the file 
proves to be too long for available 
memory, PRUNE will be aborted and 
an appropriate message will appear on 
the screen. 

After the file has been successfully 
read, processing will begin. Each line 
will magically shrink before your very 
eyes as the spaces or REMark lines are 
removed. 

After processing is complete, the file 
will be written back to RAM using the 
original filename. This will automati- 
cally kill the original file. 

Let's give the programa try by PRUNE- 
ing the PRUNE program itself. After 
keying in the listing be sure to save it on 
tape for safety. Now type SAVE"PN",A 
ENTER. This will save an ASCII ver- 
sion of the PRUNE program. Now run 
The listing: 

2 'Prune 


REM CHECK AND CLEAR MAX MEMORY 
DEFINT A-Z:CLEAR 256:DIM Y¥(255) ,A$(100 


PRUNE. The first prompt will be “De- 
lete REM statements? (Y / N)." Press the 
Y key for Yes. When the files are listed 
the next prompt will be “File name.” 
Type PN ENTER. The message “Read- 
ing file . . ." will appear and the PN file 
will be read. After a few seconds you 
will begin to see each line appear on the 
screen one at a time as they are being 
processed. Upon completion, the mes- 
sage "351 bytes saved ... Writing 
file . . ." will be printed on the screen. 

When the OK prompt returns, pro- 
cessing has been completed. Load the 
PRUNEd file by typing LOAD"PN" 
ENTER. When loading is complete, 
type SAVE"PRUNE" ENTER. Now 
type KILL“PN.DO” ENTER. You will 
have the more memory efficient 
(PRUN Ed) version of PRUNE. 

List the program and you will notice 
that all unnecessary spaces have been 
removed. Also notice that all of the 
REMark lines have been replaced by an 


28 REM leave 


apostrophe. These lines were not com- 
pletely removed because in some cases a 
GOSUB or GOTO statement may be 
used that will branch the program to a 
line containing a REM statement. If the 
line were removed, a ?UL Error would 
occur when running. If desired you can 
remove these lines one at a time and 
then run the program. If a ?UL Error 
occurs, the REM line can be reinserted 
or the GOTO or GOSUB line changed 
to send control to the line following the 
one removed. 

Those of you who are familiar enough 
with BASIC to debug ?UL Errors with 
little trouble may find it desirable to 
remove these lines automatically. If so, 
insert the following line: 63 IF RIGHTS 
(A$(1),2)7" ' " THEN 66. 

In many cases it has been found that a 
PRUNEd program will be 25 percent 
shorter than the original. 

I hope you find PRUN Eas useful as it 
has been for me. 


data statments as they are 


and tag unwanted spaces 
29 IF MID$(A$(I),A,4)="DATA" THEN 54 


X=FRE (0) -500 

CLEAR X:CLS:DIM Y(255) ,A$(100):1=1 
PRINT: PRINT"Delete Rem statments? (y/n 
"S:RR$SINPUTS$(1):IF RR$z2"y" THEN RR$=" 


— -D O0 O- — AB t4 


yn 

1@ CLS:PRINT:FILES:PRINT:LINEINPUT"File 

name>)”; A$:IF LEN(A$) >6 OR LEN(A$)<1 THE 
N BEEP: GOTO 18 

12 CLS:PRINT:PRINT"Reading file......... 
oO" tASZ"RAM:I"*ASIAASZASI:XSO:O0PEN AS F 
R INPUTAS 1 
14 IF EUFT1) 
(I) 

16 IsI+isIF FRE(" ") > 812 THEN 14 ELSE 
PRINT:PRINT"File to long for available m 
Emory. Program aborted ....... orn 
sa aaaa SCLOSESEND 

17 REM CHECK FOR LEGAL SPACES AND DELETE 
REMS 

18 CLOSE:Pi=I 

20 FOR 1=1 TO P1 

22 IF A$(I)z"" THEN 54 

24 CLS:PRINT A$4)ID):A2INSTR(AS(CI)," 
BA=A 

25 REM remove unwanted rem's 

26 IF RR$4» "Y" THEN 29 ELSE BA=INSTR(BA 
ysAS(1),"REM") SIF BA=@ THEN 29 

27 IF MIDS$(AS$(I),BA-1,1) :CHR$(S4) THEN B 
A=BA+1:GOTO 26 ELSE :58288*LEN(A$(1)) -B& 
rA$S(I)SLEFTS(A$(1),BA-1) + "'":80UND 150 
9,10: SOUND 1000,10:CLS:PRINT A$(I) 


THEN 18 ELSE LINEINPUT#1,A$ 


ME 


380 X121:FÜR X=1 TO LEN(AS(I)) SIF MID$(A$ 
(I),X,1) 2CHR$(34) OR (X121 AND MID$(A$(I 
),X,1)2"'") OR (X121 AND MIDS$(ASCID,X,23) 
z"REM") THEN 32 ELSE 36 

32 IF X121 THEN X1=@:GOTO 36 

34 IF Xi1=@ THEN X121 

36 Y(X)=X1 

38 NEXT X 

39 REM zap those nasty spaces 

42 PRINTeQ,A$(I) 3 PRINT SPACE$(254-LEN(A 
$(012))4 

44 LN=LEN(A$(I)) tLLEINSTR(AS(I)," ") 

46 A=INSTR(A,AS(I)," "):1F A=@ THEN 54 E 
LSE FOR A=LN TO LL*1 STEP-1 

48 IF Y(A)20 THEN 52 

Sü IF MID$(A$(1),A,1)=" " THEN BEEP: $5=5 
St+tisA$(I)=LEFTS(AS(I) ,A-1) *RIGHT$(AS(ID, 
LN-A):LNZLN-1:PRINTGO,A$(I)" " 

52 NEXT A 

94 NEXT I 

55 REM if nothing done then quit else 
save PRUNED file 

$6 IF SS=@ THEN 67 ELSE CLS:PRINT:PRINT 
SS"BYTES SAVED":PRINT:PRINT"Writing new 


FEIE: wens vam EFT" 


68 AS=AAS: OPEN A$ FOR OUTPUT AS 1 
62 FOR I=1 TO P1 

64 IF RIGHT$(A$(I),2)z": 
EFT$(A$(1I) ,LEN(AS(ID)-2) 
65 PRINT81,A$(I) 

66 NEXT I 

67 CLOSE: END 


'" THEN A$(I)= L 
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Three Methods 
of 
| Property Depreciation 





























' epreciation, in accounting terms, is defined 
D: the process of allocating the cost expi- 
ration of tangible property against income 
or the decline in value because of wear and tear. 
The property must have a useful life of more than 
one year to be considered depreciable. Examples 
are buildings, machinery, equipment, and motor 
vehicles. The IRS generally will allow any method 
of depreciation that is consistently applied. The 
three more common methods are used in this 
program. 
_ Depreciation methods may be classified as 
straight-line or accelerated. Under the straight- 
line method, equal amounts are deducted each 
year (Table 1). In accelerated methods, larger de- 
ductions are taken in earlier years (Tables 2 and 
3). The program listed will calculate the deprecia- 





(Vincent Lord has a degree in chemistry from the 
University of Tennessee and has done extensive work 
with using computers to operate gas and liquid 
chromatographs.) 


STRAIGHT LINE DEPRECIATION 


DEPRECIATION BOOK VALUE 
1 YEAR 150 850 
2 YEAR 158 700 
3 YEAR 150 550 
4 YEAR 150 400 
5 YEAR 150 250 


ASSET COST= 1000 
SALVAGE VALUE= 258 
YEARS DEPRECIATED= 5 


By Vincent Lord 


tion schedules for straight-line, sum-of-the-years- 
digits, and double declining balance. 

The program is self-prompting, asking for the 
cost, the useful life in years, and the salvage value. 
After this initial data is entered, the program will 
print tables for each of the depreciation methods. 
For the double declining method, an additional 
factor is required. The program lists several fac- 
tors for common types of property (1982 tax . 
tables). The program allows you to replace the 
listed factors with any that might be required with 
changes in the tax code. Also the double declining 
method will give a salvage value lower or higher 
than that allowed and the last year's or prior year's 
depreciation will need to be adjusted. 

If you wish to print to your printer, the program 
can easily be modified by changing PRINT to 
LPRINT in lines 1010, 1030, 1040 and 1060. This 
program should be useful in estimating the depre- 
ciation value using the various methods. Be sure 
to check for the latest allowable tax methods and 
procedures. 





SUM OF THE YEARS 


DEPRECIATION BOOK VALUE 
1 YEAR 258 750 
2 YEAR 200 550 
3 YEAR 150 400 
4 YEAR 100 300 
5 YEAR 50 250 


ASSET COST= 1080 
SALVAGE VALUE= 250 
YEARS DEPRECIATED= 5 


DOUBLE DECLINING BALANCE 


DEPRECIATION BOOK VALUE 
1 YEAR 308 708 
2 YEAR 210 490 
3 YEAR 147 343 
4 YEAR 102.9 240.1 
$ YEAR 72.03 168.07 


ASSET COST= 1000 
SALVAGE VALUE= 168.07 
YEARS DEPRECIATED= 5 


The listing: 


10 DEFSNG M,N 

20 DIM M(S1),N(5@) 

30 CLS:PRINT"This program will determine 
the depreciation of an asset b 
y using one (or all) of the three metho 
ds commonly used.” 

40 PRINT:INPUT"Press ENTER to continue." 
304 

S0 CLS: INPUT"What is the asset cost"s;PC 
60 PRINT: INPUT"What is the useful life o 
f the asset in years";LI 

70 PRINT: INPUT"What is the salvage value 
"39V 

82 CLS:PRINT"There are three ways of det 
ermining the depreciation of a tangible 
asset," 

90 PRINT:PRINT"1) straight line" 

180 PRINT"2) sum of the years" 

110 PRINT"3) double declining balance" 
120 PRINT"4) all of the above" 

130 PRINT" ENTER THE METHOD NUMBER"; 
140 INPUT MN 

150 IF MN<1 OR MN>4 THEN 1100 

160 IF MN=1 THEN GOSUB 300 

170 IF MN=2 THEN GOSUB 500 

180 IF MNs3 THEN GOSUB 700 

190 IF MN=4 THEN GOSUB 308:GOSUB500:G0SU 
B700 

195 GOTO 1100 

300 REM STRAIGHT LINE 

$05 S$="STRAIGHT LINE DEPRECIATION" 

310 M(1)=PC 

$20 FOR X=1 TO LI 

380 N(X)=(PC-SV)/LI 

$40 M(I*X)SMO -N(X) 

350 NEXTX 

360 GO0SUR 1089 

370 INPUT"Press «ENTER? to continue";H$ 
380 RETURN 


500 REM SUM OF THE YEARS 


510 S$="SUM OF THE YEARS” 

520 M{1)=PC 

528 BTsLI*(LI*1)/2 

538 FOR 421 TO LI 

548 F=(LI+1-X) /BT 

550 N(X)=(PC-SV) #F 

568 M(X+1)=M(X)-N(X) 

970 NEXTX 

580 GO0SUR 1800 

590 INPUT"Press «ENTER? to continue";H$ 
600 RETURN 

700 REM DOUBLE DECLINING BALANCE 

705 S$="DOUBLE DECLINING BALANCE" 

710 CLS:PRINT"Additional information is 
needed to workthe solution of Double Dec 
lining Balance." 

720 PRINT"The type of property being dep 
reciated must be entered." 

730 PRINT:PRINT:INPUT"Press <ENTER> to c 
ontinue";H$ 

740 CLS:PRINT"2NEW EQUIPMENT (2.0 FACTOR 
pn 

750 PRINT"»USED EQUIPMENT (1.5 FACTOR)" 
760 PRINT" SNEW REAL ESTATE (1.5 FACTOR)" 
770 PRINT">OLD REAL ESTATE (1.0 FACTOR)" 
780 PRINT"2USED RESIDENTIAL RENTAL (1.25 
FACTOR) " 

790 PRINT:PRINT:INPUT"ENTER FACTOR":PP 
810 M(1)zPC 

820 FOR X*1 TO LI 

830 N(X)=(M(X)/LI)#PFP 

840 M(X*1) M(X) -NCX) 

850 NEXT X 

860 GOSUB 10008 

870 INPUT"Press «ENTER? to continue":H$ 
880 RETURN 

i000 REM PRINT ROUTINE 

1010 CLS:PRINT S$ 
1030 PRINT" 

GOK VALUE" 

1035 FOR X=1 TO LI 
1040 PRINT X; "YEAR"; TAB(10);N(X);TAB(28) 
3M LEX) 

1044 FOR Y=1 TO LI/5 

1045 IF Y=X/5 THEN INPUT"Press «ENTER? t 

o continue":H$ 

1046 NEXT Y 

1050 NEXT X 

1850 PRINT "ASSET COSTz";PC:PRINT"SALVAG 

E VALUES"3M(X) : PRINT"YEARS DEPRECIATEDz" 
JLI 

1070 RETURN 

1100 CLS:PRINTs:PRINT" 

M" 

11180 PRINT:PRINT" 

ss (145" 

1120 END PCM) 


DEPRECIATION B 


END OF PROGRA 


To run again pre 








By Jim Hawk 


(Jim Hawk has been working in radio 
news for tha past 12 years and has a 
science and electronics background. He 
also does freelance writing in Washing- 
ton, D.C.) 
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ces Carried Aboard 


The November issue of PCM carried 
the news that based on requests from at 
least two airlines, the government had 
decided to look into the possibility of 
portable computers interfering with air- 
craft avionics. The Radio Technical 
Commission for Aeronautics took up 
the task, setting up a special subcom- 
mittee. RTCA is a non-profit organiza- 
tion funded two-thirds from U.S. Gov- 
ernment members and one-third from 
aviation industry members. The first 
meeting of the “Special Committee on 
Potential Interference to Aircraft from 
Devices Carried Aboard” was held Dec- 
ember 1 and 2 in Washington. PCM 
correspondent Jim Hawk was there: 


r Nhe main outcome of the meeting 
was an agreement to do "path 
loss" testing to determine just 

how much signal can make it out of a 

jetliner's windows and into the naviga- 

tion/communication antenna systems 
mounted on the belly of the airliner. 

(The Model 100, like all other compu- 

ters, puts out unwanted radio signals 

that can range up and down a good deal 
of the radio spectrum.) Since jetliners 
are made of metal, it's very difficult for 
electromagnetic radiation to escape. The 

hypothesis is that there will be a 40 to 50 

decibel loss between a seated passenger 

and the antennas — more than enough 
to degrade a portable computer's inter- 
ference effects to background levels or 


News From 
SCPIADCA*® 


* Special Committee on Potential Interference to Aircraft from Devi- 


An update on government and aviation 
industry efforts to determine potential 
hazards of in-flight use of portables. 


less. Interestingly, the first series of tests 
won't use a portable computer — instead 
employing a calibrated signal genera- 
tor. The signal generator, connected to a 
small antenna, will allow technicians to 
measure exactly how much output is 
needed to disrupt the instrument land- 
ing system and VHF communications. 
The testing will be a joint effort of air- 
frame manufacturers, the airlines and 
the Federal Aviation Administration. 
Being a highly technical subject, liter- 
ally hundreds of pages of material had 
been made available from a variety of 
sources, including the report done for 
Tandy by Ford Aerospace showing the 
Model 100 meeting or exceeding all the 
current government regulations. One of 
those in attendance was Tandy's techni- 
cal liaison, Dave Garner, who said he 
would come back with additional data 
at the next meeting in late February 
documenting the Model 100's perfor- 
mance in the low-frequency range of 20 
to 150 KHz. Theairlines' concern is that 
this is the range for a jetliner's digital 
"data buses”: the aircraft's central ner- 
vous system. Since this wiring is internal 
and spans the length of the aircraft, it's a 
potential area of concern. Another inter- 
esting document was a letter to the 
RTCA from Eastern Airlines. It detailed 
an incident where an engine was shut 
down due to "intermittent vibration 
light indications, that later were attrib- 
uted to passenger operation of a porta- 
ble hand-held Pac Man game." The 
Eastern Airlines letter went on to pro- 


pose a minimum standard, so products 
could be tested and labeled in a manner 
similar to the Underwriter’s Laboratory 
seal of approval. Another document, 
this time from the Federal Communica- 
tions Commission, spoke of interfer- 
ence to communications at an East 
Coast airport “traced to an electronic 
cash register in a drug store about one 
mile from the airport.” And in the town 
where all the regulations come from, 
Washington's National Airport traced a 
similar problem to its own newly-in- 
stalled computer center! It's becoming 
clear that electronic interference to air- 
craft is a broad-based problem. The 
FCC officials in attendance pointed out 
another problem: non-compliance with 
existing regulations. FCC engineers did 
a spot check over the summer and found 
an astounding 31 percent of the per- 
sonal computers and peripherals being 
sold did not carry the FCC label indicat- 
ing compliance with federal standards. 
The big violators were not computer 
makers but third-party manufacturers 
who market things like add-on memo- 
ries, modems, and printers. 

Portable computers sparked the most 
recent debate about interference from 
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electronic gadgets brought onboard air- 
liners. But the problem apparently ex- 
tends to simpler devices like those hand- 
held game machines. Right now, the 
most outright ban on passengers operat- 
ing electronic devices comes from East- 
ern Airlines, headed by former astro- 
naut Frank Borman. America's most 
recent venture in space may begin to 
change Mr. Borman's mind... 


A Portable In Earth Orbit 

America's highest-flying aircraft, the 
Columbia space shuttle, marked several 
firsts in the mission ending December 
8th. Besides the European Spacelab and 
the first six-man crew, the ninth shuttle 
flight carried the first portable compu- 
ter onboard! It was one of those $8,000 
Grid Systems gems with its electrolumi- 
nescent screen programmed to show the 
orbital position over earth — a mini- 
version of the “big board" at Mission 
Control in Houston. Mr. Spock of 
"Star Trek" would be honored: the ex- 
periment was dubbed "SPOC" (Shuttle 
Portable Onboard Computer). The as- 
tronauts, up till now, have had to rely 
on ground controllers for their position 
relative to earth. The Grid “Compass” 
performed flawlessly, and by the way, 
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produced no observable interference 
with other shuttle systems. Of course, 
the Grid is encased in a magnesium shell 
to produce maximum shielding and it 
costs 10 times what the Model 100 does. 
But you get what you pay for: 256K 
RAM, another 384K of bubble memory, 
a 16-bit central processor, as well as an 
80-bit coprocessor that allows incredi- 
ble computational speeds. NASA needed 
all this to program the Grid to display a 
map of the world, trace orbits, and mon- 
itor the craft’s position. The Grid was 
almost “off-the-shelf” except Velcro 
strips were attached to the bottom of the 
computer, and the modem was removed 
soa cooling fan could be added to coun- 
ter the lack of convection currents. 
Also, since it’s A.C. powered only, the 
power cord was modified so the compu- 
ter could tap the shuttle’s power supply 
— 60 watts worth compared to the 
Model 100’s miserly 1.1 watts of power 
consumption. All in all, the experiment 
proved the usefulness of a separate por- 
table computer in the shuttle and may 
help to calm the airlines’ fears about 
interference. If NASA can do portable 
computing on the shuttle, it would seem 
that we earth-bound airline passengers 
shouldn't have too much to worry about. 
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PRICKLY-PEAR SOFTWARE 
. QUALITY PROGRAMS FOR YOUR MODEL 100 


MS 


Ep" t n 
MONSTERS 


cd 


Monsters & Magic 


The most realistic fantasy role-playing game yet for the 
Color Computer. You start out by rolling up your characters 
basic ability scores and buying equipment. When you are 
ready it's into the dungeon. Your character starts at first 
level, but can rise in levels by garnering experience in the 
frav. If you have role-played fantasy games you will be 
amazed at the realism of the combat system. Armor class, 
initiative, and damage by weapon type are all included, 
with over 50 different monsters to fight - each with it's own 
abilities. As you rise in level you can win treasure and find 
magic weapons and spells - if you live!! You set the game 
length by telling how many monsters you want to fight 
before you reach your final battle to the death against the 
powerful Dungeon Lord. There are 1000+ place descrip- 
tion combinations in this text based game, and real excite- 
ment in every one! This is a fantasy simulation, and is truly 
not like any adventure game you have ever seen. For 1 
player. $19.95 tape—24K 


Astrology 


Truly a classic, this program will accurately cast your 
complete horoscope. You just enter the date, time, and 
place of birth. The sun sign, rising sign, mid heaven (MC), 
lunar nodes, and planetary influences including houses 
andaspects between the planets will all be calculated, and 
a full chart drawn. You can also do progressed charts and 
transits. It will even tell you the day of the week you were 
born. The accompanying book will help you interpret this 
chart of your horoscope. The extent of the documentation 
is tremendous, even by our exceptionally high standards, 
and no previous knowledge of the subject is required. You 
can share in this wisdom which has been used for thou- 
sands of years in many cultures. This program was written 
by a professional Astrologer. $34.95 tape — 16K 


Your personal check is welcome - no delay. Include 
$1.50 shipping for each program ordered. (Shipping free 
on $50.00 or larger orders). AZ residents add 796 sales 
tax. Orders shipped within two days. 


3n 


Viking! 


A simulation for 1 to 4 persons. Each begins as a land- 
owner, and by farming their land, buying and selling land, 
expanding their fishing fleet, building on to their manu- 
factory, increasing their population, equiping and training 
more soldiers, and regulating their taxes, each player tries 
to increase their economic power and rank until one 
becomes ruler over all. But beware plagues, rats, raiders, 
revolts, bad weather, and other misfortunes which may lie 
along the road to success. As you progress, see the map of 
your holdings increase. Playable in 1 to 2 hours, and 
different every time, you may have an addiction problem. 
$19.95 tape — 24K 


Gangbusters 


If you ever wanted to try a life of crime, this is your chance. 
You will start out as a Punk, but by using brains, and a little 
muscle, you can rise to become a Hood, Runner, Bookie, 
Torpedo, Fence, Kingpin, or win by becoming Syndicate 
Boss. Indulge yourself. Bribe a judge, or the District 
Attorney. Pay off the Cops. Take out a contract on another 
player, but watch out, they may be after you. Buy trucking 
companies, bootleg operations, houses of ill fame, but 
remember, if you get caught, you may do some hard time. 
Do you have whatittakes to take over? This game will keep 
you close to your rod, get you thinking about bulletproof 
glass in your car, and definitely bring out the worst in you, 
but you'll love every minute of it. For 2 to 6 players, takes 
about 2 hours to play. Every game is excitingly different. 
$19.95 tape — 24K 
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RAMbulance 


Service 


Model 100 installed in a West- 

ern New York paramedic ambu- 

lance rushes patient information 
to ambulance staff as they speed to an 
emergency. 

"When dispatch asks you to respond, 
they usually just give you an address. 
Based on that information, the compu- 
ter allows us to know who is there and 
what medical emergency to prepare for 
before we arrive at a scene." The quote 
is from Peter Bonadonna, director of 
emergency medical services of the Cha- 
tauqua County Ambulance Service. Full 
patient medical files are stored in the 
ambulance and are consulted before 
arriving at an emergency scene. 

“Having this information in advance 
allows us to concentrate on taking care 
of a person. The crew is finding it is an 
invaluable aid, particularly with serious 
patients." 

A more complete medical history is 
stored for high-risk patients who already 
have used the ambulance or potential 
patients who have given their medical 
records to the ambulance service as a 
precaution. 

The small size of the Model 100 made 





it easy to mount on the front dashboard 


of the ambulance—one of the reasons 
Bonadonna said he selected the compu- 
ter. Built-in programs, easy-to-use full- 
size keyboard and the computer’s battery- 
operation were other reasons. 

While neither Bonadonna nor his 
staff had computer experience before 
installing the Model 100, he said they 
learned to use the Model 100 in just a 
few hours. 

Now the computer is used for more 
than storing patient information. It 
stores instructions to hard-to-find loca- 
tions, keeps an inventory of medica- 
tions and function keys are programmed 
to serve as individual message boards 
for ambulance staff. 

“My staff really likes it, too. We've 
become very dependent on it.” 

Bonadonna initiated use of the com- 
puter and paid for its purchase himself. 
His inspiration came from several hos- 
pital emergency rooms that use compu- 
ters to store patient health records. 

Says Bonadonna, "We're probably 
the only emergency medical service in 
the country to have a computer in the 
ambulance.” 


January 1984 PCM 33 








Book 
‘How To Do 
It Book — 
A TRS-80 
Encyclopedia 


What do you do when you have a 
question about your computer? Do you 


look in magazines? Do you ask one of 


your friends? Maybe you look into your 
owners manual. In most instances, you 
might be able to get your questions 
answered. But what if you are trying to 
convert a Model II] program to run on 
your computer, for example? You may 
not have the necessary reference manu- 
als available, and your job would then 
be a difficult one at best. 

"How To Do It On The TRS-80" isa 
book that will address this problem and 
more. It is a complete reference to pro- 
gramming, operating, and interfacing 
the Radio Shack Models I, II, 111, Color 
Computer, and Model 100. The book is 


Reviews 


organized in a somewhat unusual man- 
ner, in that the index points you to a 
keyword, rather than a page number 
(there are none), which you then look 
up alphabetically. Whenever a subject is 
discussed in more than one place in the 
book, the most important reference to it 
is listed first, followed by any additional 
references. I’ve never seen a book organ- 
ized quite like this before, and I guess it 
could best be described as a cross be- 
tween a dictionary and an encyclopedia. 
It also contains many illustrations and 
programming examples, which go a 
long way in making the material easier 
to understand. 

For Color Computer owners, the 
book covers such things as using 
EDTASM+ and ZBUG, interfacing as- 
sembly language programs with BASIC, 
using the graphics commands, building 
a "Y" cable and a serial switch to hook 
up a modem and printer at the same 
time, a lengthy description of the RS- 
232 interface, and a description of the 
VDG and SAM chips. 

For Model 100 owners, the book cov- 


ers setting up an auto-execute program, 
how to access a bulletin board using the 
built-in modem and software, calling a 
machine language program from BASIC, 
setting up the function keys, an exten- 
sive description on how to use files, and 
sections on using the Address, Sche- 
dule, and Editing features. 

In short, "How To Do It On The 
TRS-80" covers just about every subject 
you could think of when it comes to 
operating your TRS-80 computer. In 
addition to doing an excellent job of 
explaining the basic operations of the 
computer, it also includes a great deal of 
information on the hardware and inter- 
facing aspects of the computer, which is 
the type of information that is not 
generally included in your owners man- 
ual. If you would like to learn more 
about your computer, or would like to 
learn about one of the other TRS-80 
computers, this is the book for you. 


(IJG Inc., 1953 West 11th Street, 
Upland, CA 91786) 


— Gerry Schechter 
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HARDWARE 


An Ideal Partner 
For The Model 100 


The DMP-120 exhibits an attractive, 
low-profile appearance in the new “off- 
white and black” motif. The first impres- 
sion I received was one of style and solid 
durability. It came well packaged and 
included the tractor, ribbon cassette, 
roll paper rack, paper guide, and users 
manual. Items you will need are as 
follows. 

1) Paper in roll, fan fold tractor, sin- 
gle sheets, or copy paper with up 
to two carbons. All in widths of 
between four and ll inches. 

2) Parallel interface cable for Model 
100 to DMP-120 is not listed in the 
manual but is catalog #26-1409 
and costs $14.95. 

The manual is well written and easily 
understood. However the instructions 
on unpacking and setting-up of the 
printer are detailed and should be read 
carefully. Pay particular attention to a 
warning that is listed four times, on 
Pages 9, 10, 12, and 13. 

In addition to set-up, the manual 
includes sections on “Operation, Font 
styles, General Control Codes, Graphics 
mode,” and Appendix. The Appendices 
contain information on Control Codes, 
Timing, Wiring, Character Sets (ASCII, 
European, and graphic), Programming, 
Care and Maintenance, Specifications, 
and for you hackers, a schematic diagram. 

One procedure not covered in the 
manual is how to send control codes to 
the printer while the M100 is in the text 
mode. Pages 60 and 211 of the Model 

100 user manual will be helpful here. 

Features of DMP-120 are impressive 
for a low-end printer. They include two 
distinct modes and several submodes. 
Here is a partial list: 
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10 Characters Per Inch 


1) Standard Text 


Immediately noticeable, after print- 
inga few characters, is the print quality. 
Itis very clear, well defined, and includes 
descenders for lowercase. A nice im- 
provement over some dot-matrix types. 

One of the more enjoyable discover- 
ies when using the DMP-120 is that it is 
much quieter than previous Line Print- 
er models. Mine has done a lot of print- 
ing three feet from my head while I 
enjoyed a TV show at normal volume. 

On the negative side there is no paper 
advance button. Also, when fanfold 
paper is lined up for tear off, the print 
head is no longer set to top of form. The 
continued adjusting of the roller knob, 
to align the paper for tear off and top of 
form, quickly becomes a nuisance. Des- 
pite these design oversights, the positive 
aspects far outweigh the negative. 

The printable character set includes 
95 ASCII, 26 European, and 30 block 
graphic characters. It should be men- 
tioned that there are two types of graph- 
ics; the block graphic that is available in 
the text mode, and the dot graphic 
which is available in the special graphics 
mode. In the graphics mode the printer 
interprets numeric data between 128 
and 255 as dot patterns for the print 
head. 

Bi-directional printing, for those of 
you who have never experienced it, 
requires a brief description. When the 
printer finishes one line of print it then 
travels the shortest distance to the next 
line. 

For instance, if our first line is 35 
characters long and the next line is 60 
characters long, the print head will line 
feed, after printing line #1, and advance 
to column 60 to print line #2 in reverse. 
Moving from position 35 to 60 is shorter 
and taster than returning to column #1, 
and is a contributing factor for the 120 
cps print speed. Also, because of this 
feature, you will find that the print head 


2) Standard Elongated Text 5 CPI 

3) Condensed Text 16.7 ‘CPI 

4) Condensed Elongated Text 8.35 CPI 

5) Standard Graphics 960 Dots Per Line 
6) Condensed Graphics 1600 DPL 

7) Selectable line feed (full, 34, and 4) 


8) Underline in any text mode 

9) Bi-directional, logic sceking 
print head 

10) Adjustable tractor width 

11) Serial or parallel operation 

12) Print speed of 120 characters 
per second 


(four to 11 inches) 


(First eight items are software select- 
able.) 


will not always stop at the far left, but 
may stop at any position on the line. 
In closing | can say that after three 
months of use, my DMP-120 has never 
failed to operate correctly and has 
worked its way through a six inch stack 
of paper with no fading. smudging, or 
paper jams. Thisisa very usable machine 
and an excellent choice for under $500. 


(Radio Shack, Cat. 426-1255, $499.95) 
— Larry Randall 


SOFTWARE 


PortaMax — 


PortaPower 
For PoCo 


It's Friday afternoon, 4:35. Almost 
the weekend. The phone rings; it is the 
break you've been waiting for. The pres- 
ident himself calls to offer you the job of 
production manager. But there's a catch 
— he needs a revised production sched- 
ule for the weekend by five o'clock. 
With 500 people on each of three shifts, 
it better be right. No problem, you 
assure him. He sounds surprised but 
pleased as you promise a return call by 
five. 

A few quick calls and you have all the 
facts. It's now 4:45. Your suppliers 
haven't come through with enough raw 
material to keep production on sched- 
ule. You have to shuffle the weekend 
shifts to keep them busy without run- 
ning out of material. It's a real logistics 
problem. No sweat. You enter Model 
100 BASIC and type CLOAD "PMAX." 
In a moment, "OK" flashed at you and 
you press F4 to run the program. Five 
minutes later, you've solved the prob- 
lem. It's 4:55 when the boss answers the 
phone. He's trying not to sound im- 
pressed, but he is. At 5:00 you're on 
your way home. PortaPower strikes 
again! 

PortaMax is another Porta series 
program written for the Model 100. 
Like PortaCalc (Skyline's spreadsheet 

reviewed in November) and Porta- 
Stat (Skyline’s statistical program— re- 
viewed in this issue.) Porta Max isa very 
solid package that delivers what it 
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promises. What you get is a sophisti- 
cated problem-solving program. 

PortaMax comes complete with doc- 
umentation, tutorial, and bibliography. 
For those of you unfamiliar with the 
concepts and practices of linear pro- 
gramming (or if, like me, you barely 
remember how to spell it), the biblio- 
graphy is indispensable. As the Por- 
taMax manual indicates on Page 2, the 
program “assumes you have the ability 
to formulate linear programming mod- 
els and the need to solve them.” Ob- 
viously, PortaMax is not for the un- 
initiated. 

If you can formulate your model, 
PortaMax will do the rest. The tutorial 
guides you through entry of a sample 
objective function (the mix of variables 
that you need to optimize) and several 
constraints (the conditions that the var- 
iables must meet). Keyboard entry is 
closely patterned on standard linear 
programming notation, so you key your 
model as you would write it. You simply 
key “max” or “min” followed by the 
objective function. To signal the end of 
the function and the beginning of the 
constraints, you abbreviate “subject to” 
as “st.” Finally, you key each constraint. 
The only restriction is that right-hand 
side values must be nonnegative. This is 
a simple matter of reversing the sign of 
left-hand side variable coefficients and 
reversing relational operators (e.g. 
“greater than” becomes “less than”). 

Once keyed, you can list the model, 
save it, edit it, solve it, and display the 
results using the Model 100’s function 
keys. PortaMax uses the eight function 
keys to perform all but one major com- 
mand and several editing subcommands. 
Asa result, you rarely have to remember 
or type commands. Just use the Label 
key to display the commands and the 
function keys to execute them. As with 
PortaStat, | was disappointed to see dif- 
ferences between Model 100 function 
key assignments and Porta Max assign- 
ments. The "save" function is F7 rather 
than F3. (I'm trying to maximize ease of 
use and minimize confusion.) 

Besides keyboard entry, PortaMax 
will also read and write either its own or 
Porta Calc files. | did not find the inter- 
face to PortaCalc as useful here as with 
PortaStat because the format is so spe- 
cialized and my models were all small. 
Besides, a 24K machine can't handle 
PortaMax, PortaCalc, and data files at 
the same time. In any case, Skyline is to 
be applauded for integrating their Mod- 
el 100 offerings. 
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Program output can be displayed, 
printed, saved to RAM or cassette, or 
even uploaded to another computer. 
The initial default is the Model 100's 
display and reports are formatted ac- 
cordingly. If you select some other 
device, PortaMax prompts you for the 
number of columns and lines per page. 
The output process is very flexible and 
easy to use. 

The documentation is generally com- 
plete and very good, but I did encounter 
problems in the tutorial. The sample 
contraints listed on Page 5 of the man- 
ual all used the comparison operators 
"greater than or equal to" and “less than 
orequalto" but the modelentry instruc- 
tions on Page 8 use only "greater than" 
and “less than." To find out why, I 
called Skyline. As far as they knew, it 
should have included "equal to" in both 
cases. They admitted it could make a 
difference, depending on the particular 
model. In the tutorial example, includ- 
ing "equal to" yields an "infeasible mod- 
el” message. To further confuse matters, 
the documented output includes a value 
of 6 for the x2 variable which violates 
the fourth constraint. My best guess is 
that the program does include the “equal 
to" condition for all constraints. This 
should be clearly documented. 

The missing link in the whole Porta 
series is graphics; Porta Max is no excep- 
tion. As with PortaCalc and PortaStat, 
the ability to graph the results would be 
a real plus (almost a necessity). Anyone 
else interested in a “PortaGraph” pack- 
age to read and graph all Porta files? 

If you use linear programming to 
solve problems, or if you need such a 
tool, PortaMax is worthy of your con- 
sideration. While you must understand 
the concepts, Porta Max spares you the 
gory mathematical details. If you owna 
PoCo, you already possess PortaPower. 
If you'd like to enhance it, add Porta- 
Max. 

(Skyline Marketing Corporation, 

4510 W. Irving Park Rd., Chicago, IL 

60641, requires 24K RAM, $44.95 

plus $2 shipping and handling.) 

— Dennis Kirley 


SOFTWARE 


PortaStat Offers 
Quality To Go 


PortaStat is a statistics program for 
the Radio Shack Model 100 from Sky- 


line Marketing Corporation. Based on 
my observations, PortaStat is a much 
better than average program with a few 
minor deviations that are not highly 
significant. Before you say mean things, 
l promise to hold the puns and pass the 
PortaStat. 

PortaStat is one of the Porta series 
packages which includes PortaCalc(pre- 
viously reviewed here) and PortaMax 
(soon to be reviewed). It provides an 
impressive array of basic statistical func- 
tions on a 24K machine and reads and 
writes files in either PortaStat or Por- 
taCalc format. PortaCalc is Skyline 
Marketing's spreadsheet program and it 
is a very handy traveling companion 
(almost a must). 

In case you're wondering, PortaStat 
is not a course in statistics. The docu- 
mentation assumes familiarity with basic 
concepts. A brief but helpful biblio- 
graphy is provided for the statistically- 
naive business user. Knowing whether 
and which forms of statistical analyses 
to apply is a real art, which PortaStat 
could not possibly address. 

What PortaStat does address is sig- 
nificant. For a given set of statistical 
observations, PortaStat will compute 
the mean, standard deviation, standard 
error of mean, correlation, covariance, 
regression (simple and multiple), analy- 
sis of variance, and f and t tests. If this 
sounds like Greek, you're not ready to 
pick up and use the program. If this 
sounds extensive, you have probably 
not used mini- and mainframe statisti- 
cal analysis packages. But it is impres- 
sive for a portable program written in 
BASIC. Whether PortaStat has the func- 
tions you will need will depend on your 
application. For the average user, this 
represents an excellent balance between 
function and the Model 100's capabil- 
ities/ limitations. 

Getting started with PortaStat is 
simple enough. The program comes on 
cassette in an attractive padded binder 
which includes the documentation. Load- 
ing the program should be no problem if 
you have ever used a tape with the 100. 
Even if you have not, the manual gives 
very detailed instructions. The docu- 
mentation suggests a relatively low vo- 
lume setting, between 2 and 4, for the 
Radio Shack CCR-81. A higher setting, 
about 7, works best for me. So if you 
have trouble loading, turn it up. 

Once PortaStat is loaded, you'll need 
a little help before you're ready to start. 
Section 4 of the documentation pro- 
vides an example demonstrating many 








of PortaStat's features. This example 
would be much more effective if the 
data for the sample observations was 
available on the program cassette or at 
least in the manual. Having the actual 
data running on your machine allows 
you to follow along tutorial-style. Both 
PortaCalc and PortaMax offer such 
tutorials, so Skyline obviously under- 
stands this point. Maybe the next ver- 
sion will include this needed improve- 
ment. 

Lacking sample data, you must simply 
run PortaStat and enter your own. You 
are first prompted for the maximum 
number of rows and columns of data. 
Each observation is a row of data with 
variables corresponding to columns. This 
arrangement allows for spreadsheet rep- 
resentation, but forces you to keep track 
of the number of rows and columns. 

After completing entry, you are faced 
with mastering 24 four-letter com- 
mands. One of the commands available 
is “help” which displays a list of 24 
commands and instructs you to check 
the manual for details. This feature is 
not adequate for the novice, but is better 
than that which most programs offer. 
What is desperately needed is a Quick 
Reference Guide like the one included 
with PortaCalc. The manual covers all 
24 commands in an extensive reference 
guide, but with a portable machine like 
the 100, you can’t possibly carry all the 
manuals you might need. Radio Shack 
set the standard by packaging the ma- 
chine with a comprehensive guide anda 
pocket guide. I can only hope that inde- 
pendent software developers will follow 
suit. 

Eight of the 24 commands are as- 
signed to function keys. The "enter" 
function (Fl) allows you to choose 
between keyboard entry, PortaStat, or 
PortaCalc files. Files may reside in 
RAM, on cassette, or be loaded from 
another computer using the COM facil- 
ity and the RS-232 port or the built-in 
modem. Naturally, the files must be in 
either Stat or Calc format. With RAM 
files, you must remember the filename 
as PortaStat has no "Files" command 
or display to list all RAM files. Several 
times I had to use the Break key to check 
a filename. Very inconvenient! A 25th 
command would be helpful. 

Speaking of function keys, I’m often 
frustrated by arbitrary differences be- 
tween the Model 100’s standard func- 
tion key assignments and those used in 
programs developed for the 100. Por- 
taStat, for example, assigns the "save" 


function to F2 instead of using F3 as 
Model 100's BASIC and Text programs 
do. Where the same or a similar func- 
tion is included in software, it ought to 
be assigned to the same function key 
unless there is a reason not to. Most 
packages, and PortaStat is no excep- 
tion, follow the 100 in “quit” or “menu” 
function. This avoids unnecessary errors 
and cuts down on the amount of trivia 
you need to remember to use a program. 
Why stop there? Incidentally, if the 
"files" command were added to Porta- 
Stat, it should be reassigned to F2 since 
it performs the load function normally 
assigned to F2 in BASIC and Text. The 
function key assignments are more con- 
sistent in PortaCalc, but there, “files” is 
assigned to F4. Granted these are, at 
most, irritations; they are also easily 
fixed. 

Output from statistical routines or a 
listing of the data matrix itself can be 
directed to the screen, a printer, or any 
attached device. Each time you run Por- 
taStat, the default device is the screen. 
Data is formatted to present one eight- 
line by 40-character “window” at a time. 
Pressing ENTER displays the next win- 
dow. To switch to a printer, you must 
type a utility command and specify 
formatting parameters such as the num- 
ber of columns and lines per page. With 
a little experimentation, this program 
should work well with most printers. 

As stated earlier, PortaStat reads and 
writes PortaCalc files. This ability lets 
you use PortaCalc's entry and edit power 
for handling PortaStat data. While Por- 
taStat does have basic entry functions 
and considerable editing, the added 
flexibility of PortaCalc is a real plus. 
The only disadvantage to this arrange- 
ment isthat a 24K machine cannot han- 
dle PortaStat, PortaCalc and data files 
at the same time. So you need to unload 
and reload every time you change pro- 
grams. That's the price of portability, I 
guess. 

For most of us, one graph really is 
worth a thousand observations. Por- 
taStat offers a screen scatter-plot of any 
two variables. Unfortunately, this graph 
cannot be printed. While it is probably 
impossible to include graphics in the 
same package, the ability to graphically 
print the data is sorely missed. Perhaps 
there's a PortaGraph in Skyline's fu- 
ture. 

Error handling and documentation in 
PortaStat is very good. Thanks to the 
fact that the “quit” key exits to BASIC 
command level, accidentally pressing 


F8 does not mean loss of data. As the 
manual indicates, simply typing “cont” 
returns to PortaStat with all informa- 
tion intact. Similarly, running out of 
memory trying to store models gener- 
ates an error message. By “killing” files, 
or selecting cassette storage instead, all 
data can be saved intact. 

It is certainly a benefit for all Model 
100 owners to have high-quality, inno- 
vative, and integrated software like the 
Porta series available. The value of this 
remarkable machine is greatly enhanced 
by such quality software. But it is all the 
more crucial that such software be easy 
to learn and use, and be consistent in 
design with the machine it is written for. 
Despite the variations noted, PortaStat 
is a high-quality program. If you need 
your Statistics to go, order PortaStat. 


(Skyline Marketing Corporation, 4510 
W. Irving Park Rd., Chicago, IL 
60641, 24K RAM required, $44.95 
plus $2 S/H) 


— Dennis Kirley 


New Products 
M100 Softlock 


Code Keeper, a cassette loaded pro- 
gram for the Model 100 protects the 
entire computer from unauthorized en- 
try. It secures all files in the computer’s 
RAM memory from prying eyes, and 
prohibits anyone without the correct 
password from running any of the pro- 
grams. 

The break key and the reset key have 
no-effect on this piece of software, so 
there is no way to avoid entering the 
correct password. If the owner of the 
computer should leave it behind some- 
where, when the finder turns the unit 
on, it will inform them of the owner's 
name and phone number. 

It uses only IK of memory, and the 
$25 package includes documentation, 
program cassette, and all shipping 
charges. It is available from Sherman 
Electronics, P.O. Box 63-04, Miami, FL 
33163, or can be ordered by phone 
(395-944-2111). 


PoCo Stand 


Diskus Products has produced a new 
stand for the PoCo. This desk top stand 
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The Rackseller 








ALABAMA 
Florence Anderson News Co. 
Madison Madison Books 
ALASKA 
Fairbanks Electronic World 
Fairbanks News Agency 
Kotzebue Arctic Bookstore, Inc. 
ARIZONA 
Phoenix Road Runner 
Computer Pro 
Scottsdale Softwareland Corp. 
Tucson Anderson News Co. 
CALIFORNIA 
Atwater Electro Brain 
Citrus Heights Software Plus 
Half Moon Bay  Strawflower Electronics 
North 
Hollywood Levity Distributors 
Sunnyvale Computer Literacy 
CONNECTICUT 
Hartford The Aetna Life Club Store 
DELAWARE 
Wilmington Normar Inc.—The Smoke Shop 
FLORIDA 
Ft. Lauderdale Software Connection 
Miami Newsrack 
Panama City Computer Systems Group 
Pensacola Anderson News Co. 
Tallahassee Anderson News Co. 
Winter Park Independent Computer Systems 
GEORGIA 
Atlanta Guild News Agency 
Columbus Muscogee News Co. 
Trenton The Phone Line 
ILLINOIS 
Chicago Kroch's & Brentano's 
Jackson Street 
Kroch's & Brentano's 
Wabash Ave. 
Chicago Prairie News Agency 
Oakbrook Kroch's & Brentano's 
INDIANA 
Elkhart Elkhart City News & Book Store 
Indianapolis A— Computer Store 
Madison Arco Office Supplies 
Scottsburg Radio Shack of Scottsburg 


IOWA 

Davenport Interstate Book Store 
KANSAS 

Wichita Amateur Radio Equipment Co. 

Lloyd's Radio 

KENTUCKY 

Benton Anderson Electronics 

Pikeville Gus-Stan Enterprises 
LOUISIANA 

Slidell Radio Shack 
MAINE 

South Portland Portland News Co. 
MASSACHUSETTS 

Littleton Computer Plus 

Marlboro Radio Shack 

Woburn Microcon s«*tware Centers 
MICHIGAN 

Novi MI Software Dist., Inc. 

Rochester Rochester Book Center 
NEBRASKA 

Lincoln Hobby Town 
NEVADA 

Las Vegas Hurley Electronics 
NEW HAMPSHIRE 

Manchester Brookwrights 

Petersborough Radio Shack 

West Lebanon  Verham News Corp. 
NEW JERSEY 

Hackensack Total Circulation Service 

Marmora Outpost Radio Shack 

Midland Park Software City 

Pennsville Dave's Electronic Radio Shack 
NEW MEXICO 

Albuquerque News and Bookstore 

Albuquerque Page One Newsstand 
NEW YORK 

Brooklyn Cromland, Inc. 

Johnson City Unicorn Electronics 

New York City — Usercom System, Inc. 
NORTH CAROLINA 

Cary It's Just For You, Inc. 
NORTH DAKOTA 

Fargo Computer Associates 
OHIO 

Cincinnati Softwarehouse 


Toledo Leo's 
Reitz Electronics, Inc. 
OREGON 
Eugene Libra Books, Inc. 
Medford John's News Stand 
Portland 80-Plus 
Roseburg Rainy Day Bookshop 
Tigard 80-Plus of Tigard 
PENNSYLVANIA 
Pleasant Hills Pittsburgh Computer Store 
SOUTH CAROLINA 
Greenville Palmetto News Co. 
North 
Charleston The Green Dragon 
TENNESSEE 
Antioch P.S. Computers 
Chattanooga Anderson News Co. 
Knoxville Anderson News Co. 
Memphis Computer Center 
Software, Inc. 
Nashville Mosko's Book Store 
Smyrna Delker Electronics, Inc. 
TEXAS 
Austin Software & Things 
Dallas Micro Concepts, Inc. 
Elgin Homing Pigeon 
Ft. Worth A & A International 
Byteworks, Inc. 
RFI Electronics 
Irving Software Access 
WASHINGTON 
Blaine Compulit Dist. 
Richland C & J Electronics Computer Center 
Seattle Adams News 
WISCONSIN 
Appleton Badger Periodicals 
Janesville Book World 
Milwaukee Campus Corner 
Portage Sam's Electronics 
CANADA: 
ALBERTA 
Calgary Rainbow Software Services 
Edmonton Kelly's Software Distributors 
NOVA SCOTIA 
Halifax Atlantic News 


Also available at selected B.Dalton Bookseller stores in the United States and Canada. 








for briefcase portable computers im- 
proves displays, and fits neatly around 
the computer itself to protect the unit 
while it is carried in a briefcase or carry- 
ing bag. The PoCo Stand is $17.95 plus 
$2 for shipping. Order from Diskus 
Products, 6003 Bandini Blvd., Los An- 
geles, CA 90040, or call 213-726-3088. 


M100/ IBM 
Connection 


M100 Smalltalk consists of two pro- 
grams and a null modem cable. One of 
the programs resides in the Portable 
Computer and the other in the IBM 
Personal Computer. The null modem 
cable is five feet long and is attached via 
the RS232c ports on each machine. 
With the computers connected you are 
able to transmit and retrieve files to/ from 


the two computers using M100 Small- 
talk. The syntax and commands are vir- 
tually identical on each computer. The 
disposition of the file that is trans- 
mitted/retrieved may be to either the 
printer, the screen ora file ona diskette. 
The price is $49.95. For further infor- 
mation, write M100 Smalltalk, Key 
Solutions, Inc., 19 Silvermine Road, 
New Canaan, CT 06840; or you may call 
(203) 966-9773. 


External Monitor 
Interface 


The Mikrokolor Color Graphics Inter- 
face board is designed to provide the 
Model 100 with high resolution graph- 
ics and text capability utilizing a stand- 
ard color television or monitor. The 
Mikrokolor provides 256 x 192 color 
graphics, with 15 colors plus trans- 


parency. Its three-dimensional Sprite 
planes provide for simultaneous display 
of all levels. It has four modes of opera- 
tion available. 

1) Text Mode: Provides 24 lines of 40 
characters each usinga 6 x 8 dot matrix, 
and provides the user with 256 definable 
characters. 

2) Multicolor Mode: Provides 64 x 
48 color graphics. 

3) Graphics | Mode: Provides 256 x 
192 color graphics, 24 lines of 32 charac- 
ters per line, utilizing an 8 x 8 dot 
matrix, with 2 colors per character. 

4) Graphics 2 Mode: Provides the 
same as Graphics | mode except for 
allowing 16 colors per character. 

The Mikrokolor Model 100 will sell 
for $335 (8295 in kit form). 

Contact Andreasen's Electronics Re- 
search & Development, 1548 Monterey 
St., San Luis Obispo, CA 93401, or 
phone (805) 541-6398. 
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SAVE $120 


ASISTE! 


HET, 


CAPS 
LOCK SHIFT 





on the TRS-80 Model 100 with 8K RAM 


! stock 426-3801 
Model 100 Cables Model 100 8K Memory 


CoCo to Model 100 io Upgrade Module 
CoCo to Model |, II, III, IV $69 95 
a 


— $24.95 


C-10 Tapes — any quantity For quick delivery call: each 
49¢ each 


SPECTRUM PROJECTS 


93-15 86th Drive 
P.O. Box 21272 

WOODHAVEN, NY 11421 

PCM (212) 441-2807 


lus $5 shipping and handlin 
RY. residents add sales tax A 


Call our Bulletin Board for free Model 100 programs. BBS #1 — (212) 441-3755 


| BBS 42 — (212) 441-3766 
Now on line . .. 20 MEG. CORVUS HARD DISK DRIVE 
" BBS #3 — (212) 441-5719 








A full line of top-quality floppies, in virtually every 51/4" and 8" model, for compatibility with virtually every computer on the market. 
Guaranteed to meet or exceed every industry standard, certified 100% error-free and problem-free, and to maintain its quality for at least 12 million passes 
(or over a lifetime of heavy-duty use). 
Contact Dennison Computer dn Inc., 55 Providence Highway, Norwood, MA 02062 or call toll-free 1-800-343-8413. | Dennison | 
n Massachusetts, call collect (617) 769-8150. Telex 951-624. 





